Form in neuem Thread laufen lassen

**jus**

braucht man die überhaupt?

Ja, die brauchst du in jedem Falle. Aber ist das IsDialogMessage notwendig? Glaube das kannst du weglassen.

@Zacherl: Danke, ok, das IsDialogMessage habe ich mal rausgenommen.

Ich bräuchte bitte wieder eure Hilfe. Ich bin auf ein seltsames Problem gestossen, und zwar lasse ich mir die Anzahl der Durchläufe vom Thread über OutputDebugString anzeigen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDataThread.Execute;

var

  Msg: TMsg;

  i: Cardinal;

begin

  hdlg := CreateDialog(HInstance, MAKEINTRESOURCE(100), Self.Handle, @DlgFunc);  

  ShowWindow(hdlg, SW_SHOW);

  i := 0;

  while not terminated do

  begin

    BERECHNE_WAS; // <-------------- ich würde hier gerne was berechnen lassen

    if GetMessage(msg,0,0,0) then

    begin

      TranslateMessage(Msg);

      DispatchMessage(Msg);

    end;

    OutputDebugString(PChar('i: '+IntToStr(i)));

    inc(i);

  end;

end;

Das komische daran ist, dass der Thread stehen bleibt, wenn ich auf ein anderes VCL Fenster von Hauptthread wechsle, sprich in meinem Falle auf Form1 von Unit1.pas klicke. Es scheint so zu sein, dass beim Focusverlust der Thread einfach stehen bleibt, weil er nichts mehr zu tun hat. Sobald ich das NonVclThread Fenster bewege oder einfach mit der Maus drüberfahre, läuft die Nachrichtenschleife zwischen "while not terminated do" wieder weiter. Der GUI macht das überhaupt nichts aus. Aber das Problem ist ja, wenn ich dann irgendwelche Berechnungen im gleichen Thread erledigen möchte, geht das dann nicht, sprich ich bräuchte da einen zusätzlichen Thread, wo die Berechnungen erledigt werden und mache die GUI Anzeigesachen in diesem Thread. Ist das so, oder gibt es dazu eine elegantere Lösung?

Eine schlechte Lösung, was ich schon ausprobiert habe, wäre, dass ich mit einer SendMessage in der Schleife dem Thread zwinge weiter zu machen. Was aber auffällt ist, dass anscheinend nicht mehr als ca.30-40 Mal pro Sekunde die While-Schleife durchlaufen wird, was eine erbärmliche Performance ist.

Form in neuem Thread laufen lassen

AW: Form in neuem Thread laufen lassen

Forumregeln