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.