Sender???

[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

[LoL]

hi

willst du wissen was ein sender is oder was der befehl macht?

[Alex_ITA01]

wenn geht sender, denn ich weiß nciht was das sender bedeutet wenn ich es weiß kann ich mir den rest bestimmt selber erklären

[LoL]

Zitat von Delphi Hilfe:

In einer Ereignisbehandlungsroutine gibt der Parameter Sender an, welche Komponente das Ereignis empfangen und daraufhin die Ereignisbehandlungsroutine aufgerufen hat. Es kann sinnvoll sein, daß mehrere Komponenten gemeinsam eine Ereignisbehandlungsroutine verwenden, die sich abhängig davon, welche Komponente sie aufgerufen hat, unterschiedlich verhält. Dazu verwenden Sie den Parameter Sender in einer if...then...else-Anweisung. Beispielsweise zeigt der folgende Code den Titel der Anwendung in der Titelleiste eines Dialogfelds nur dann an, wenn das Ereignis OnClick von Button1 empfangen wurde.

[sakura]

Wenn ein Ergeignis ausgelöst wird, so ist es üblich, daß im Parameter Sender das Objekt übergeben wird, welches das Ereignis ausgelöst hat. Sender wird i.A. aber nur als TObjekt deklariert, damit ist nicht bekannt, über welche Eigenschaften dieses Objekt verfügt.

Mit der Anweisung With Sender as TFileListBox do geht man jetzt davon aus, daß der Sender vom Typ TFileListBox ist und kann somit auf die entsprechenden Eigenschaften und Methoden (z.B. ausgewählte Dateien) zugreifen. Das ganze nennt man auch "type-cast".

......

[Alex_ITA01]

achso,muss ich das dann so verstehen das es im prinzip das gleiche ist wie with TLISTBOX do ? da greife ich ja auch auf die eigenschaften von der listbox zu oder?

[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;

[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?

[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.

[Alex_ITA01]

danke echt klasse von dir hat mir sehr geholfen da kann ich meine programme gleich so umschreiben.
mit label würde es dann (Sender As Label).caption heißen ge?