Seltsames Verhalten vom Forms

[5etH]

Hallo Zusammen,

Ich habe einen Merkwürdigen Fehler beim Erzeugen von Forms. Folgender Fehler Tritt auf: ich arbeite mit Mehreren Dynamisch Erzeugten Forms. Ich kann in den Optionen Festhalten Welche Forms ich beim Starten des Programms schon erzeugen möchte. z.B. form 1 2 und 3, wenn ich diese auch in der Reinfolge erzeuge, kann ich form 2 und 3 ohne Probleme schließen, schließe ich aber form1 zuerst so schließt es 2 und 3 gleich mit.

Hier die entsprechenden Code Zeilen:




ich habe leider keine Ahnung woher das kommt und hoffe das ihr mir helfen könnt

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
if first then // Variable zur Abfrage ob Programm Gestartet wurde um 2. aufruf zu vermeiden
begin
first := false;
if memo2.Lines[6] = '-1' then // Memo2 Liest eine OPT.INI ein
begin
  button3.click;
end;
if memo2.Lines[7] = '-1' then
begin
  button4.click;
end;
if memo2.Lines[8] = '-1' then
begin
  button9.click;
end;
if memo2.Lines[9] = '-1' then
begin
  button6.click;
end;
if memo2.Lines[10] = '-1' then
begin
  button5.click;
end;
if memo2.Lines[11] = '-1' then
begin
  if button1.visible then
  begin
    button1.click;
  end;
  button11.click;
end;
if memo2.Lines[13] = '-1' then
begin
Chat1Click(self);
end;
end;
end;

//Das liegt hinter Den Buttons speziefisch für die Forms
procedure TForm1.Button3Click(Sender: TObject);
begin
  if not s3 then
  begin
  s3 := true;
  Application.CreateForm(TForm3, Form3);
  form3.show;
  end;
end;

//Und auf jedem Fenster onClose
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.s3 := false;
self.destroy;
end;

Wenn ich die Forms aber Einzeln per Klick öffne tritt dieser Fehler nicht auf

In vollster Hoffnunf
Manuel

[nahpets]

Hallo,

schau mal, welches Formular in Application.MainForm steht, das ist das Hauptformular des Programmes und sorgt beim Schließen dafür, dass das Programm beendet wird.

[NormanNG]

Hi,

der erste Aufruf von
Application.CreateForm(..., ...); bestimmt, welche Form als "Mainform" verwendet wird...

Sobald diese Form geschlossen wird, beendet sich das Programm
und schließt damit alle ggf. noch offenen Fenster.

[5etH]

Also das meinform ist ein Anderes und in dem Mainform erzeuge ich die Form1 2 und 3 wenn ich form1 dann schließe schließ es form 2 und 3 aber nicht das mainform ... zur info form1 <> mainform

[5etH]

ich habe aber jetzt festgestellt das wenn ich den selben ablauf der on show liegt auf einen button lege und ihn dann klicke, dass dann der Fehler nicht kommt... also wo muss ich dann den ablauf hinlegen das er nicht mit dem erzeugen des MainForms in die quere kommt ....

[5etH]

okay .... wenn nachdenken hilft ^^

also habe jetzt einfach den Ablauf in den Projektquelltext geschrieben und jetzt geht es ^^ und somit ist sichergestellt das das mainform als erstes komplett fertig ist.