Fehler beim Zugriff auf Form im FormCreate

[Chrissi91]

Hi,

eigentlich sagt der Threadname schon alles aus, aber ich erkläre es nochmal anhand meines Problems:

Ich schreibe im Moment mit Delphi ein recht umfangreiches Programm. Die 1. Form ist eine Art "Ladeform". In ihr lade ich im FormCreate die ganzen Sachen. Funktioniert auch alles Prima.

Jetzt sind die beiden letzten Zeilen von der FormCreate - Prozedure folgende:

Delphi-Quellcode:

frmPreview.Visible := False;
frmMain.Visible := True;

Dann läuft das Programm zwar, aber bei den letzten 2 Zeilen gibt es eine Fehlermeldung aus (s. Screenshot)

Da die Form frmMain erst danach erstellt wird, ist mir der Fehler bewusst. Aber in welche Prozedure soll ich es denn sonst schreiben?

Grüße aus Berlin

Christopher P.

[Martin K]

Vielleicht klappt es, wenn Du das Ereignis OnShow (also die Prozedur FormShow) verwendest?

[Sunlight7]

Hallo,


schreib doch in die Projekt Datei vor Application.Run einen verweis auf eine Procedure, die das Ausführt.

@Martin K: Lieber nicht :wink:

[Chrissi91]

Zitat:

Zitat von Sunlight7

Hallo,


schreib doch in die Projekt Datei vor Application.Run einen verweis auf eine Procedure, die das Ausführt.

@Martin K: Lieber nicht :wink:

Das mit dem OnShow habe ich auch schon ausprobiert.

Aber Sunlight7: Ich kann deinem Gedankengang nicht folgen. Wenn ich die Prozedur vor dem Run ausführe, ist die frmMain doch auch noch nicht ausgeführt.

[Balu der Bär]

Zitat:

Aber Sunlight7: Ich kann deinem Gedankengang nicht folgen. Wenn ich die Prozedur vor dem Run ausführe, ist die frmMain doch auch noch nicht ausgeführt.

Das macht nichts, dass Form ist aber existent. :zwinker:

[Chrissi91]

Zitat:

Zitat von Balu der Bär

Zitat:

Aber Sunlight7: Ich kann deinem Gedankengang nicht folgen. Wenn ich die Prozedur vor dem Run ausführe, ist die frmMain doch auch noch nicht ausgeführt.

Das macht nichts, dass Form ist aber existent. :zwinker:

Gut.

Kleine Berichtigung: Es heißt "die" Form. :zwinker:

[Sunlight7]

Stimmt:

Delphi-Quellcode:

program Project1;

...

begin
  frmPreview:=TfrmPreview.Create(Application);
  Application.CreateForm(TfrmMain, TfrmMain);

  // Hier zB.
  frmMain.DoInit;

  frmPreview.Free; // Ggf.

  Application.Run;
end;

Schutzblöcke net vergessen :wink:

@Chrissi91: Es heißt das Form(ular) :P

[Chrissi91]

Wenn, dann aber mit einem S und nicht mit zwei S. :zwinker:

Danke.