Alternative zu Application.HandleMessage

[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