Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Mehrere Objekte Ansprechen:Beispiel Buttons !

**uwewo**

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

   if (Sender is TButton) then

      Label1.Caption := (Sender as TButton).Name;

end;

Uwe

uwewo Registriert seit: 14. Jul 2004 Ort: Karlsruhe 479 Beiträge Delphi 2006 Professional	#20 Re: Mehrere Objekte Ansprechen:Beispiel Buttons ! 12. Okt 2006, 13:25 markieren Delphi-Quellcode: procedure TForm1.Button1Click(Sender: TObject); begin if (Sender is TButton) then Label1.Caption := (Sender as TButton).Name; end; Uwe Uwe
	Zitat