Zitat von
agm65:
ich hab das als tedit
Wusste den Typ nicht genau.
Das Verfahren nennt sich übrigens TypeCast. Dabei musst du beachten, dass wenn du die Komponente änderst, zB durch ein TMemo ersetzt und diese hat die Eigenschaft Text nicht, dann funktioniert das nicht. Von daher sollte man vorher immer erst den Typ überprüfen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender is TButton) then
ShowMessage((Sender as TButton).Caption);
end;
MfG
freak