Thread gegen sich selbst absichern

**alzaimar**

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.

markieren

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

Thread gegen sich selbst absichern

Re: Thread gegen sich selbst absichern

Forumregeln