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