Ach jetzt hab ich das erst kapiert ... Dieses verflixte 'Application.ProcessMessages'.... stimmt. So ein Mist.
Hmmm... ich glaube, das geht so nur über eine Steuervariable, sodaß ein Versuch, den geschützten Bereich nochmals zu betreten, abgewiesen wird. Ich mach das immer ziemlich billig über die 'Tag' - Eigenschaft des Formulares.
Delphi-Quellcode:
Procedure TMyForm.SomeEvent(Sender : TObject);
Begin
If Tag<>0 Then Exit;
Tag := 1;
Try
Blabla();
Finally;
Tag := 0;
End;
End;
In meinem Fall wird BlaBla() u.U. wieder den Event 'SomeEvent' auslösen und ich wäre in einer Endlosschleife. So vermeide ich das. Das dürfte in deinem Fall genauso funktionieren.
Ich hab die Sache mit der Semaphore ohne Nachzudenken aus einem Projekt, das bei den konkurrierenden Events ohne ProcessMessages auskommt. Hab gar nicht nachgedacht....