Entwickler-Ecke

Sonstiges (Delphi) - Application.ProcessMessages ohne unit Forms - wie?


maxk - Di 05.11.02 17:45
Titel: Application.ProcessMessages ohne unit Forms - wie?
Hi,
ich schreibe gerade eine Komandozeilenanwengung, inder ich den Befehl Application.ProcessMessages; gebrauchen könnte. Die Unit Forms möchte ich aber nicht einbinden. Was hilft?

Danke im Voraus,
maxk


O'rallY - Di 05.11.02 19:46

Ich würde versuchen dein Problem mit einem eigenen Thread zu lösen, in dem dann die langwierige Rechenoperation ausgeführt wird.


Delete - Di 05.11.02 22:53


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure ProcessMessages(hWnd: DWORD);
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;


Braucht allerdings Windows.pas


maxk - Fr 08.11.02 07:23

Danke Luckie,
die Unit Windows muss ich sowieso einbinden. Aber was muss ich denn da für ein Handle übergeben? :oops: Wie gesagt Komandozeile... Beim Test hat 0 es aber auch getan... :wink:

maxk


maxk - Mo 18.11.02 16:12

Zwei weitere Probleme sind folgende, (wieder ohne unit Forms)
1. wie kann man die Eigenschaft Application.Terminated abfragen
2. wie kann man Application.Title setzen?

Das sind jetzt mit Sicherheit die letzen zwei Fragen zum Thema,
maxk