Sender verwenden

Warum funktioniert folgender Code nicht ?

Delphi-Quellcode:

			procedure Tfrm_dlg_farben.inp_pflichtClick(Sender: TObject);

begin

  ColorDialog := TColorDialog.Create(Application);

  try

    ColorDialog.Color := sender.color;

    if ColorDialog.Execute then

      sender.color := ColorDialog.Color;

  finally

    ColorDialog.Free;                                            

  end;

end;

Er meldet

Zitat:

[Error] dlg_farben.pas(58): Undeclared identifier: 'color'
[Error] dlg_farben.pas(60): Undeclared identifier: 'color'

Der Sender ist doch das Editfeld und die hat doch die Property Color.

Es geht hierbei darum die Hintergrundfarben von Editfeldern via Dialog zu verändern, ich wollte nur ein Procedure für alle Editfelder anlegen, weil sich ja ausser dem Sender(??) nichts ändert. Und da braucht es ja dann nicht 10x dieselbe Procedure wo jeweils nur ein Name ausgetauscht ist.

Sender verwenden

Sender verwenden

Forumregeln