Form3 in Form1Create erstellen

[k4ni]

Hallo,

Ich habe folgendes problem:
Bei meiner anwendung werden im OnCreate ein paar sachen aus einer Datenbank geladen, und manchmal kann das länger dauern und dann muss man warten bis die form angezeigt wird.
Deswegen hab ich mir jetzt eine neue form gemacht (Form3) die ein label auf sich hat "Loading...".
So dann wollte ich das so manuell erstellen damit ich es im Form1Create schon verwenden kann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form3 := TForm3.Create(Self);
Form3.Show;

Die form wird dann schon angezeigt, aber das label nicht, dann hab ichs so versucht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form3 := TForm3.Create(Self);
Form3.Label1 := TLabel.Create(Form3);
Form3.Label1.Visible := true;
Form3.Show;

Ging auch nicht :/
Erst wenn Form1Create fertig ist wird das label auf Form3 angezeit? Wieso? Und wie kann ich das schon von anfang an sichtbar machen?

thx

[Der.Kaktus]

Hallo, warum willst Du im Formcreate1 gleich Form3 anzeigen? ..dann koenntest Du ja gleich Form3 zur Hauptform machen..ansonsten mach das Formcreate fuer Form3 im Formshow der Form1..dann klappt es

[HeinzJ]

so vielleicht ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  TForm3: TForm;
  Label1: TLabel;
begin
Form3 := TForm.Create(Self);
Form3.Label1 := TLabel.Create(Form3);
Form3.Label1.Visible := true;
Form3.Show;

[Bernhard Geyer]

Du wirst noch ein paar Application.ProcessMessages in deiner OnCreate-Methode benötigen um das Zeichnen der Controls zu ermöglichen.
Evtl. reich auch ein paar .Update-Aufrufe auf entsprechende Controls.

[k4ni]

Yap danke!
So hats geklappt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form3 := TForm3.Create(Self);
Form3.Label1 := TLabel.Create(Form3);
Form3.Label1.Visible := true;
Form3.Show;
Form3.Update;

;