Sender???

[Alex_ITA01]

danke jetzt glaub ich es wirklich zu verstehen, *g*

[The-X]

Das ganze kann mann auch benutzen um rekursive Aufrufe zu unterbinden...

Wenn man z.B. zwei Listboxen hat und die beide auf eine Aktion der anderen reagieren soll:

Delphi-Quellcode:

Procedure TForm1.ListBox1Click(Sender:TObject);
Begin
  if Sender=ListBox2 Then exit; {*1}
  {... Code für die 1. ListBox ...}
  ListBox2Click(ListBox1);
end;

Procedure TForm1.ListBox2Click(Sender:TObject);
Begin
  if Sender=ListBox1 Then exit; {*2}
  {... Code für die 2. ListBox ...}
  ListBox2Click(ListBox2);
end;

Ohne die Abfragen *1 & *2 würde das Programm hängen bleiben, da ein Click auf eine der Listboxen
auch einen CLick auf die andere aufrufen würde ... und immer so weiter ;()