Aus TThread ein Form zur Laufzeit erstellen

[APP]

Hallo,

ich habe es wieder einmal mit den Threads:

Ich möchte aus einem Thread eine Form zur Laufzeit erstellen,
aber irgendwo ist der Wurm drinnen... :cry:

In Hauptformular erzeuge ich den Thread:

Delphi-Quellcode:

PROCEDURE TfMain.Button1Click(Sender: TObject);
BEGIN
   Thread1 := TBaseThread.Create('Form 1');
   Thread1.MainFormClass := Self;
   Thread1.FormCaption := 'Form 1';
   Thread1.FreeOnTerminate := True;
   Thread1.OnTerminate := ThreadEnde;
   Thread1.Resume;
END;

in der ThreadUnit möchte ich das Form erzeugen:

Delphi-Quellcode:

USES
   Forms,                                         // Application
   uThreadWindow,                                 // TfThreadWindow 
   Classes;
...

PROCEDURE TBaseThread.Execute;
VAR
   fThreadWindow                     : TfThreadWindow;
BEGIN
   fThreadWindow := TfThreadWindow.Create(FMainFormClass); // <-- Crash
   TRY           // TfThreadWindow.Create(Application) ist der gleiche Fehler 
      fThreadWindow.Caption := FaFormTitle;
      fThreadWindow.ShowModal;
   FINALLY
      fThreadWindow.Free;
      fThreadWindow := NIL;
   END;
END;

Nach dem Create gibt es einen EInvalid Operation... Leinwand/Bild erlaubt kein Zeichen... Fehler

Was mache ich da Falsch?

[APP]

Hallo Leute,

ich glaube, für mein Problem gibt es keine Lösung:

Zitat:

> I need to create a designed form in a separate thread. But when I try to
> do it exception occurs!!!
>

The VCL is not thread safe as far as all the visual stuff is concerned.
Forms have to be created in the main thread, they don't work in a
secondary thread.

Peter Below (TeamB)

Quelle: News://borland.public.delphi.objectpascal

Ich habe noch die wildesten Vorschläge dazu gefunden (z.B. eine
neue TApplication Instanz im Thread zu erzeugen,...) aber es
funkte (natürlich) keiner.

[Motzi]

Die einzige Möglichkeit die du hast ist auf nonVCL zurückzugreifen und dir dein Fenster so zu erzeugen...

[APP]

Hallo Motzi,

Du hast recht, das habe ich Vergessen zu erwähnen :oops: