Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
12. Jan 2011
Du kannst alles auf einer Routine in Deinem Mainform umbiegen und dort den Sender, bzw den Owner des Senders ermitteln, ungeprüft und ohne Sicherheitsabfragen nur ein Beispiel....
Procedure Mainform.SetColor(Sender:TObject);
begin
TForm(TComponent(Sender).Parent).Color := TComponent(Sender).Tag;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
12. Jan 2011
type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
btErzeugeForm: TButton;
procedure btErzeugeFormClick(Sender: TObject);
procedure SetzeColor(Sender:TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }