Sender???

[Sharky]

Zitat von Alex_ITA01:

achso, danke jetzt hats klickt bei mir gemacht. das ist also ne art quelltext verkürzung zum abfragen welche komponente welches ereignis ausgeführt hat und dann es behandeln?

Hai Alex,

hier noch mal ein OnClick zur verdeutlichung:

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
 If (sender IS TEdit) then
  begin
   ShowMessage ('Du hast auf ein Edit mit dem Name: '
               + (Sender As TEdit).Name
               + ' und dem Inhalt: '
               + (Sender As TEdit).Text
               + ' gecklickt');
  end;
end;

Wie Du siehst Prüfe ich mit Sender IS TEdit ob auf ein Edit geklckt wurde.
Jetzt greife ich mit Sender AS TEdit auf die Eigenschaften des Edits zu.

Ein (Sender As TLabel).Text könnte z.B. nicht funktionieren da ein Label ja keine Eigenschaft Text besitzt.