Alternative zu Application.HandleMessage

[RobertP]

Servus!

Also ich schreibe gerade eine Konsolenanwendung, die mehrere Callbackprozeduren enthält. Um ständig zu prüfen ob so eine Prozedur aufgerufen wurde verwende ich diesen Code:

Delphi-Quellcode:

repeat
    Application.HandleMessage;
  until canclose;

Funktioniert auch, hat aber den Nachteil dass ich die Unit Forms einbinden muss, was mein Programm enorm vergrößert...

[DocE]

Hallo MrPayne,

ich verwende in einem TThread folgendes:

Delphi-Quellcode:

repeat

  while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do 
  begin 
    
    if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut 
    begin  

      // trifft alles für Threads normalerweise nicht zu 
      {if not IsHintMsg(Msg) and not IsMDIMsg(Msg) and 
       not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then} 

        TranslateMessage(Msg); 
        DispatchMessage(Msg); 

    end; 
  
  end;

until CanClose;

Sollte auch für Deine Zwecke funktionieren. Falls benötigt, das Auskommentierte wieder entkommentieren...


Grüsse
...Doc

[RobertP]

Läuft wunderbar, vielen Dank!