Frage zur Parameterübergabe an eine Prozedur

[Andreas Käding]

Hallo

Welchen Typ muss der Übergabeparameter haben, um in einer Prozedur sowohl DBEdits als auch DBMemos einfärben zu können? TCustomEdit kennt Color ja nicht.

M.f.G. Andreas Käding

[Uli Becker]

Hallo,

<pre>
procedure TForm1.ColorMe(c: TControl);
begin
if c is TDBMemo then
(c as TDBMemo).color := clred
else if c is TDBEdit then
(c as TDBEdit).color := clred;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ColorMe(dbmemo1);
end;
</pre>

Gruß Ul

[Andreas Käding]

Danke, genau das wars was ich brauche