Formular schliessen im "OnActivate"

[xZise]

Und was soll mir das jetzt sagen?

• Öffnen des Fensters - NOT_STARTED
• Activate - STARTED
• Deaktivted - STARTED
• Wieder Activated - STARTED
• Fertig - FINISHED
• => Close?!

PS: Könnte es an ShowModal liegen?

[Nuclear-Ping]

Was ist zu "bequem" daran, eine saubere und wirklich funktionierende Lösung mit einem minimalen Mehraufwand zu schaffen?

Empfehle dir auch, die Form einfach dynamisch zu erzeugen, eine Downloadfunktion aufzurufen und diese nach Abschluss wieder mit Free zu schließen.

Delphi-Quellcode:

with TMyDownloadForm.Create (Self) do
  begin
    {...}
    Show;
    DownloadFile ({...});
    Free;    
  end;

Das kannst du auch in eine Prozedur hauen und dann per Parameter einfach die zu ladende Datei angeben. Damit hast du auch nicht mehr als eine Zeile zum Aufrufen der Funktion.

[xZise]

Aber das löst mein Problem nicht!
Weil wie kann ich nach "Showmodal" bei Aufrufer Code ausführen, ohne das ShowModal zu beenden...

PS: Anscheind ist da irgendwo ein bug drinne, weil es eigentlich ja funzt...

[Jelly]

Zitat von xZise:

Weil wie kann ich nach "Showmodal" bei Aufrufer Code ausführen, ohne das ShowModal zu beenden...

Gar nicht. Und im OO Sinne ist das auch nicht ratsam. Dein 2. Form, das du anzeigst, ist nichts anderes wie eine Klasse, und diese Klasse soll sich um den Download alleine kümmern, und nicht die aufrufende Klasse. Übergib deinem Downloadformular den URL Link im constructor, und definiere eine public property im Downloadform, in der nach Beenden des Downloads der Dateiname oder sonst was drin steht wie z.B. Stream o.ä. Dann noch ein Statuscode, und Du kannst das Downloadformular universell einsetzen, auch in anderen Projekten.

[dataspider]

Hi,

wenn es denn unbedingt modal sein muss, dann setze im OnCreatein der Form Application.OnIdle.
In der Methode setzt du erst OnIdle wieder auf nil, dann führst du deinen Download aus und zum Schluss das Close.

Damit startet der Download erst, wenn das Form angezeigt wird etc.

Cu, Frank

[EDIT]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := ApplicationIdle;
end;

procedure TForm1.ApplicationIdle(Sender: TObject; var Done: Boolean);
begin
  Application.OnIdle := nil;
  // Dowloadroutine
  Application.ProcessMessages;
  Close;
end;

[/EDIT]

[xZise]

Zitat von dataspider:

wenn es denn unbedingt modal sein muss

Ja muss es

Zitat von Jelly:

Zitat von xZise:

Weil wie kann ich nach "Showmodal" bei Aufrufer Code ausführen, ohne das ShowModal zu beenden...

Gar nicht. Und im OO Sinne ist das auch nicht ratsam.

Und genau deshalb funktioniert das dynamische Erstellen nicht!

Zitat von Jelly:

Dein 2. Form, das du anzeigst, ist nichts anderes wie eine Klasse, und diese Klasse soll sich um den Download alleine kümmern, und nicht die aufrufende Klasse. Übergib deinem Downloadformular den URL Link im constructor, und definiere eine public property im Downloadform, in der nach Beenden des Downloads der Dateiname oder sonst was drin steht wie z.B. Stream o.ä. Dann noch ein Statuscode, und Du kannst das Downloadformular universell einsetzen, auch in anderen Projekten.

Und genau das kann mein Formular (Zwar soll es nicht umbedingt universell sein... Aber es ist eine netter Nebeneffekt)

Zu dataspiders lösung: So müsste es gehen...

[Jelly]

Zitat von xZise:

Und genau deshalb funktioniert das dynamische Erstellen nicht!

Ich muss mich mal grad am Kopf kratzen, denn das muss ich jetzt irgendwie verstehen.

Du kannst doch was dynamisch erstellen, ausführen, und zu deiner Hauptprozedur zurückkehren. Dein Showmodal wartet doch darauf bis das Form geschlossen wird. Oder versteh ich da jetzt alles verkehrt?

[Nuclear-Ping]

Wenn es unbedingt Modal sein muss, dann mach die Downloadroutine in einen Thread (Forumssuche nach TThread oder Google) und rufe diese vor ShowModal auf.

Delphi-Quellcode:

with TMyDownloadForm.Create (Self) do
  begin
    {...}
    DownloadFile ({...}); // Startet einen Thread zum DL
    ShowModal;
    Free;   
  end;

[xZise]

Zitat von Jelly:

Zitat von xZise:

Und genau deshalb funktioniert das dynamische Erstellen nicht!

Du kannst doch was dynamisch erstellen, ausführen, und zu deiner Hauptprozedur zurückkehren.

Genau das war der Plan... ABER er macht es nicht! Und da ändert auch kein dynamisches Erstellen...

[Hawkeye219]

Hallo Fabian,

schau dir doch einmal diesen Thread an, hoika zeigt dort eine Lösung für dein Problem.

Gruß Hawkeye