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 ;()