Sender verwenden

[sakura]

Es ist nicht zu erkennen, was für ein Klassentyp der Sender sein soll. Deshalb, wenn es z.B. vom Typ TButton ist, dann geht das wie folgt.

Code:

procedure Tfrm_dlg_farben.inp_pflichtClick(Sender: TObject);
begin
  [color=#ff0000]if not Sender is TButton then
    Exit;[/color]
  ColorDialog := TColorDialog.Create(Application);
  try
    ColorDialog.Color := [color=#ff0000]TButton([/color]sender[color=#ff0000])[/color].color;
    if ColorDialog.Execute then
      [color=#ff0000]TButton([/color]sender[color=#ff0000])[/color].color := ColorDialog.Color;
  finally
    ColorDialog.Free;                                           
  end;
end;

......