Form soll sich selbst schließen und erneut anzeigen

[BlueStarHH]

Zitat von Uwe Raabe:

Zitat von BlueStarHH:

Damit ein anderer Inhalt im Form angezeigt wird. Der wird im Execute erzeugt und geladen.

In dem Fall würde ich eine separate Methode erstellen, die genau dieses tut. Diese Methode kannst du dann im Execute und im Button1Click aufrufen.

Ja, das hab ich nun auch gemacht. Hat knappe 2 Stunden gekostet, die ich einsparen wollte...

[dGeek]

Zitat:

Ja, das hab ich nun auch gemacht. Hat knappe 2 Stunden gekostet, die ich einsparen wollte...

Wieso hat das denn zwei Stunden gedauert?
Das ist doch eigentlich nur eine Copy & Paste-Angelegenheit + "hier und da" ein paar Zeilen hinzufügen?

Aus....

Delphi-Quellcode:

procedure TSecondDlg.Execute;
begin
 Berechne;
 MacheWas;
 MachNochwas;
end;

wird...

Delphi-Quellcode:

procedure TSecondDlg.StartUpCode;
begin
 Berechne;
 MacheWas;
 MachNochwas;
end;

procedure TSecondDlg.Button1Click(Sender: TObject);
begin
 StartUpCode;
end;

procedure TSecondDlg.Execute;
begin
 StartUpCode;
end;

[BlueStarHH]

Zitat von dGeek:

Wieso hat das denn zwei Stunden gedauert?
Das ist doch eigentlich nur eine Copy & Paste-Angelegenheit + "hier und da" ein paar Zeilen hinzufügen?

Weil es eben keine Copy & Paste-Angelegenheit war. Das TSecondDlg soll direkt keine Details aus der MainForm kennen. Diese wurden von der MainForm an TSecondDlg.Execute(hier) übergeben. Wenn ich nun Execute im TSecondDlg selbst aufrufe, habe ich die Infos aus dem MainForm nicht. Also musste das Model und die MainForm geändert werden. Nichts kompliziertes, aber viele Zeilen und nicht nur dieses eine Beispiel.

[blawen]

Zitat von BlueStarHH:

Zitat von dGeek:

Wieso hat das denn zwei Stunden gedauert?
Das ist doch eigentlich nur eine Copy & Paste-Angelegenheit + "hier und da" ein paar Zeilen hinzufügen?

Weil es eben keine Copy & Paste-Angelegenheit war. Das TSecondDlg soll direkt keine Details aus der MainForm kennen. Diese wurden von der MainForm an TSecondDlg.Execute(hier) übergeben. Wenn ich nun Execute im TSecondDlg selbst aufrufe, habe ich die Infos aus dem MainForm nicht. Also musste das Model und die MainForm geändert werden. Nichts kompliziertes, aber viele Zeilen und nicht nur dieses eine Beispiel.

Wieso rufst Du die Startup-Procedure nicht mit den benötigten Parametern auf und blendest das Fenster innerhalb dieser Procedure ein?

Delphi-Quellcode:

procedure TSecondDlg.StartUpCode(Meine_Parameter : String);
begin
 Berechne;
 MacheWas;
 MachNochwas;
 Show;
end;

[Jumpy]

Zitat von BlueStarHH:

Zitat von dGeek:

Wieso hat das denn zwei Stunden gedauert?
Das ist doch eigentlich nur eine Copy & Paste-Angelegenheit + "hier und da" ein paar Zeilen hinzufügen?

Weil es eben keine Copy & Paste-Angelegenheit war. Das TSecondDlg soll direkt keine Details aus der MainForm kennen. Diese wurden von der MainForm an TSecondDlg.Execute(hier) übergeben. Wenn ich nun Execute im TSecondDlg selbst aufrufe, habe ich die Infos aus dem MainForm nicht. Also musste das Model und die MainForm geändert werden. Nichts kompliziertes, aber viele Zeilen und nicht nur dieses eine Beispiel.

Hätte TSecondDlg nicht beim schließen über Tags oder ModalResult der MainForm mitteilen können, dass noch ein zweites mal TSecondDlg zu öffnen ist, ggf. mit anderen Parametern? Dann sollten die Änderungen in TSecondDlg minimal sein und nur im MainForm müsste man was ändern...

[bra]

Woher soll denn der Dialog beim zweiten Öffnen seine Daten bekommen, wenn die nur vom Hauptform übergeben werden? Das kann doch gar nicht funktionieren.

Erstelle den Zweitdialog einmal, füge da eine Funktion ein, mit der die benötigten Daten befüllt werden und rufe die bei Bedarf vom Hauptfenster auf. Da den Dialog zu zerstören und neu zu erstellen ist doch überflüssig.

[dGeek]

Zitat von bra:

Erstelle den Zweitdialog einmal, füge da eine Funktion ein, mit der die benötigten Daten befüllt werden und rufe die bei Bedarf vom Hauptfenster auf. Da den Dialog zu zerstören und neu zu erstellen ist doch überflüssig.

...

Zitat von blawen:

Wieso rufst Du die Startup-Procedure nicht mit den benötigten Parametern auf und blendest das Fenster innerhalb dieser Procedure ein?

Delphi-Quellcode:

procedure TSecondDlg.StartUpCode(Meine_Parameter : String);
begin
 Berechne;
 MacheWas;
 MachNochwas;
 Show;
end;