Form in OnCreate Anzeige anzeigen lassen - Fehler

[Nagetier]

Guten Tag

Ich habe folgendes Problem, sobald ich in der MainForm meines Programmes eine Anweisung wie "Form2.Show" einbinde, oder einen Button Klick, der dies erledigen soll, dann wirft mir mein Programm beim start eine EAccess Voiolation Meldung hin... und unterlegt mir folgendes im Code

Delphi-Quellcode:

program XYZ;

uses
  Forms,
  UiChem in 'UiChem.pas' {Form1},
  Ablage in 'Ablage.pas' {Form2},
  Rechner in 'Rechner.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'XYZ';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2); {<<-- wird dann hellrot unterlegt}
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

Mein Code Schnippsel im OnCreate ist folgender:

Delphi-Quellcode:

procedure TForm1.BtSplashClick(Sender: TObject);
begin
 Form2.Show;
 sleep(1000);
 Form2.Hide;
end;

Ich versuche diese Form Testweise als eine Art Splash Screen einzubinden, allerdings akzeptiert er einfach kein Form.Show im OnCreater meiner MainForm, was genau ist das los...?

Nager

Edit: Achja, ich weiß, dass die Methode ziemlich simpel ist etc. allerdings brauch ich den Splash nicht, damit das Programm laden kann(Wie im hiesigen Tutorial beschrieben ), denn das geht schnell, der soll einfach nur erscheinen...

[patti]

Zitat von Nagetier:

Mein Code Schnippsel im OnCreate ist folgender:

Delphi-Quellcode:

procedure TForm1.BtSplashClick(Sender: TObject);
begin
 Form2.Show;
 sleep(1000);
 Form2.Hide;
end;

Der CodeSchnipsel ist doch nicht im OnCreate ("BtSplashClick") oder verstehe ich da was falsch? Funktioniert der Aufruf von Form2 beim Klick auf den Button auch nicht oder geht es da?

P@Tti

[Nagetier]

Zitat von patti:

Zitat von Nagetier:

Mein Code Schnippsel im OnCreate ist folgender:

Delphi-Quellcode:

procedure TForm1.BtSplashClick(Sender: TObject);
begin
 Form2.Show;
 sleep(1000);
 Form2.Hide;
end;

Der CodeSchnipsel ist doch nicht im OnCreate ("BtSplashClick") oder verstehe ich das falsch?

P@Tti

Jein, das war nur ein versuch, im OnCreate wird dann BtSplash.Click ausgeführt

[Apollonius]

Wie man unschwer erkennen kann, wird form1 vor form2 erzeugt. Also folgende Reihenfolge:
Form1 erzeugen
Form1.onCreate
Form2 erzeugen

Du rufst nun aber im FormCreate eine Methode (show) eines Objektes(form2) auf, das gar nicht existiert. Setze das Ganze ins onShow, das müsste auch funktionieren.

[patti]

Habs bei mir rekonstruiert, funktioniert nur im OnShow, da er beim OnCreate Form2 noch nicht kennt (Erstellungsreihenfolge).

[Nagetier]

Zitat von Apollonius:

Wie man unschwer erkennen kann, wird form1 vor form2 erzeugt. Also folgende Reihenfolge:
Form1 erzeugen
Form1.onCreate
Form2 erzeugen

Du rufst nun aber im FormCreate eine Methode (show) eines Objektes(form2) auf, das gar nicht existiert. Setze das Ganze ins onShow, das müsste auch funktionieren.

Ok, stimmt dummer Denkfehler
Allerdings gibts dann immer noch den Fehler wenns nur im onShow steht, also noch schnell was vertauscht und es scheint zu gehen...

Delphi-Quellcode:

  Application.Initialize;
  Application.Title := 'XYZ';
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.Run;

Wunderbar


edit: doch nicht... Jetzt kommt plötzlich ein Fehler das er Visible nicht bei OnShow und OnHide verändern kann...

Code sieht mittlerweile so aus:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.Title := 'XYZ';
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

und so...

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  Form1.Visible := false;
  Form4.Show;
  sleep(2000);
  Form1.Visible := true;
  Form4.Visible := false;
end;

[patti]

oder so ...

[Nagetier]

Naja doch nicht irgendwie, wie du im Edit siehst, irgendwo is wieder so n saublöder Fehler drin...

[Apollonius]

Du kannst doch visible nicht im onShow verändern! Am Ende setzt du nämlich visible auf true, sodass onShow aufgerufen wird-> nochmal visible auf true->nochmal onShow->usw.
Ist form1 dein Mainform? Dann hilft Application.showmainform:=false;

[Nagetier]

Das mit dem Application.ShowMainform weiß ich jetzt net wos genau hinkommt, ich hab allerdings was gefunden per Google, was das ganze recht einfach macht...

Delphi-Quellcode:

program XYZ;

uses
  Forms,
  UiChem in 'UiChem.pas' {Form1},
  Ablage in 'Ablage.pas' {Form2},
  Rechner in 'Rechner.pas' {Form3},
  Splash in 'Splash.pas' {Form4};

{$R *.res}

begin
  Form4 := TForm4.Create (Application);    {Splash Screen anzeigen}

  try
    Form4.Show;
    Form4.Update;

    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);


    Form4.Hide;       {Splash Screen ausblenden}
  finally
    Form4.Free;
end;
  Application.Run;

end.

Allerdings kann ich jetzt keinen sleep Befehl einbinden, da er das nicht kennt, aber das lässt sich lösen indem man in die uses noch ein "SysUtils," einfließen lässt, dann kann ich einen sleep(2000) z.b einbinden, klappt wunderbar... endlich