Auf Beendigung einer Methode warten

[Bomberbb]

Hallo,

folgendes Problem: Ich habe eine Klasse vom typ TCustomPanel abgeleitet um hierauf zu zeichen. Nun habe ich das Problem, dass die Objekte nicht gleichzeitig zeichnen dürfen. Habe das auch schon abgefangen. Das Problem ist, dass das Zeichnen der Panels einfach verworfen wird. Meine Idee wäre es, wenn ich den anderen Objekten eine Nachricht schicke, wenn das Zeichnen beim ersten Objekt beendet ist. Oder gibt es eine Möglichkeit, das Zeichnen der anderen Objekte irgendwie in eine Warteschlange zu stellen?

Momentan sieht mein Quelltext so aus:

Code:

  ...
  CriticalSection.enter;
  if not Semaphor then
    Semaphor := true;
    fonPainting := true;
  CriticalSection.Leave; 

  if fonPainting then
    Zeichnen;

  Semaphor := false;
  fOnPainting := false;
End;