Application.ProcessMessages Ersatz

Nicht nur ist Application.ProcessMessages recht lange auf den Typ, die oft zusätzliche Funktionalität werden muss, wenn seine verwendet werden. Zu diesem Zweck habe ich zwei grundlegende Wrapper genutzt werden können an ihrer Stelle:

...

Verfahren ProcessMsg (); Überlast;
Verfahren ProcessMsg (const SleepFor: Word); Überlast;

Umsetzung

Verfahren ProcessMsg ();
beginnen
ProcessMsg (0);
end;

Verfahren ProcessMsg (const SleepFor: Word); Überlast;
beginnen
Application.ProcessMessages ();
Sleep (SleepFor);
end;

...

Jetzt statt schriftlich Application.ProcessMessages (); in Ihrem Code können Sie schreiben ProcessMsg (); statt. Und in der Zukunft können Sie, was passiert, um Application.ProcessMessages Anrufe ohne Besuch viele verschiedene Bereiche Ihres Codes.

Wenn Ihr mit Delphi 2005 oder höher können Sie die Append-Inline-Richtlinie auf das Verfahren Erklärung an.

Die oben genannten Funktionen erfordern "Formulare" und "Windows" hinzugefügt werden, die bei der Verwendung Klausel.

Diese Verfahren können leicht hinzugefügt werden, um den Code in diesem Artikel (http://www.howtodothings.com/ViewArticle.aspx?Article=758)