was machen mit den Hangups ? Konsolenprobleme die zweite ^ ^

[hboy]

Zitat von Assarbad:

... ob du das zusammenpacken willst oder in verschiedenen Threads und dafür synchronisiert realisierst ist doch deine Sache.

ja und wie kann ich in einem separaten Thread messages holen und verarbeiten ?

Delphi-Quellcode:

 procedure TConsoleWnd.ProcessMessage;
 var msg: TMsg;
 begin
   if  GetMessage(msg,0,0,0) then
   begin
     TranslateMessage(msg);
     DispatchMessage(msg);
   end;
 end;


 procedure MessageProc(param: Cardinal);
 begin
  while true do TConsoleWnd(param).ProcessMessage;
 end;

 procedure TConsoleWnd.SetUseMessageThread(doit: Boolean);
 begin
   if (self.fUseMessageThread = false) and doit then
   begin
     BeginThread(nil,0,@MessageProc,@self,0,TID);
   end;

   if (self.fUseMessageThread = true) and (not doit) then
   begin
     TerminateThread(TID,0);
   end;
 end;

das hier ist irgendwie quatsch kA wieso