Multithreading und TForm.Create(self) - geht das?

[jaikai]

Moin

Ich finde keine Informationen darüber ob und falls ja, wie ich in einem Thread eine Form self-createn kann. Geht das überhaupt?

Delphi-Quellcode:

procedure TKeyinside.Execute;
begin
  if DarfLaufen <> 'Nein' then begin
     if not Assigned(Form_Check) then begin
        Form_Check := TForm_Check.Create(self);
        Form_Check.INI_Auslesen;
        if Form_Check.Checkit = falsethen
           Form_Check.ShowModal;
        Form_Check.Destroy;
        Form_Check := nil;
        DarfLaufen := '';
        end;
     end;
end;


procedure TMainForm.Timer3Timer(Sender: TObject);
begin
   // Der Timer sollte ursprünglich nur zum lostreten eines Threads dienen
   // Testweise so eingebunden

   Keyinside := TKeyinside.Create(true);   //  Thread inaktiv erzeugen
   Keyinside.FreeOnTerminate := true;      //  Thread nach dem Beenden freigeben
   Keyinside.Resume;              //  Thread aktivieren

end;

Der Debugger meckert -> Die 'Execute' meckert jetzt, daß die Komponenten inkompatible sind.

Kann man in Threads Form.create(self) anwenden? - Wenn ja - wie gehts richtig?

Danke

[Robert Marquardt]

Die VCL ist nicht threadfest, folglich lassen sich Forms nur im Hauptthread anlegen und funktionieren auch nur dort.

[phreax]

Alos bei mir hat es mit folgendem code funktioniert...

Delphi-Quellcode:

procedure TTestThread.Execute;
begin
Synchronize(Showform);
end;

procedure TTestThread.Showform;
begin
form3:= TForm3.Create(Form1);
Form3.Show;
end;

probiers halt mal so aus Synchrnize muss halt sein...

[jaikai]

Yep - und wie das läuft...


Danke

[ulrich.b]

Und der Grund dafür ist, dass nur in der Application-Hauptschleife Windows - messages empfangen werden können und nur dort ... in keinem anderen Thread.
Und die Synchronize() - Methode versetzt die aufzurufende procedure in den Hauptschleifen - context!

[Robert Marquardt]

Fragt sich nur wie lange. Messages kann man auch in einem Thread empfangen, aber die VCL ist sicher nicht auf solche Scherze eingerichtet. Bitte sein lassen.

[ulrich.b]

Zitat von Robert Marquardt:

Bitte sein lassen.

Also das verstehe ich jetzt überhaupt nicht! Wenn ein TForm erst einmal im Hauptthread einer Application läuft, verhaltet sie sich wie jede andere form auch, daher können keine Fehler (Exceptions) passieren noch gibt es Performanceprobleme.

[Robert Marquardt]

Es wird aber nur das Show synchronisiert.

[ulrich.b]

OK, .... also erstens: Auch wenn mit Show() aufgerufen wird, werden alle folgenden Window-Messages, von denen das Window lebt auch im Hauptthread gesendet und verarbeitet (Das OS weiß ja gar nichts davon, in welchem Thread die Sychronisierung stattgefunden hat!!!)

Und Zweitens: Ruft man ein Fenster in diesem Zusammenhang sowieso zu 95% modal auf, da man im Thread ja das (Eingabe-)Ergebnis der Form benötigt, um fortzufahren (wie gesagt: meistens).