Sender???

[Sharky]

Zitat von Alex_ITA01:

Servus ich hab da mal ne frage
Problem (besser Unwissenheit): Was bedeutet z.B. With Sender as TFileListBox do
dieses "Sender"? Bitte mal ne Erklärung auch wenns bestimmt ganz einfach ist.

Danke alex

Hai Alex,

mal sehen ob ich das richtig erklären kann.

Du bekommst in den Verschiedenen Ereignissen (OnClick,OnActiv,OnKeyPress,usw.) immer als Sender das Objekt welches das ereigniss ausgelöst hat.

Nun kannst Du damit z.B. erreichen das Du für alle Objekte deiner Form (Buttons,Labels,Edits,usw.) nur eine Ereigniss Routiene für z.B. OnClick schreibst.

Über den Sender kannst Du jetzt ermitteln welcher Objekttyp das Ereigniss ausgelöst hat (TButton, TLabel,...)
und / oder wie der Name des Objektes ist um dann entsprechend zu reagieren.

z.B.:

Du Hast auf deiner Form: Labels, Edit, Checkboxen. Jetzt weisst Du allen im OnClick die Procedure zu:

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
 If (sender IS TLabel) then
  begin
   ShowMessage ('Du hast auf ein Label gecklickt');
  end;
 If (sender IS TEdit) then
  begin
   ShowMessage ('Du hast auf ein Edit gecklickt');
  end;
 If (sender IS TCheckBox) then
  begin
   ShowMessage ('Du hast auf eine Checkbox gecklickt');
  end;
end;