Formular schliessen im "OnActivate"

[xZise]

Wie kann ich mein Formular schließen im OnActivate?

[Luckie]

Mit Close?

[Jelly]

Warum willst du im OnActivate ein Form schliessen :gruebel: Dann zeigs doch gar nicht erst an :thumb:

[xZise]

@ Luckie: sry, hatte ich nicht erwähnt: So gehts nicht ;)
@ Jelly: Er soll ja den Download einer Datei anzeigen (dauert auch ein bisschen, man sieht die Form also), aber sich auch automatisch schliessen wenn er fertig ist.
Deshalb habe ich den Downloadcode in "OnActivate" geschrieben, weil "OnShow" zu früh ist, und Timer zwar geht, aber irgendwie doch unelegant ist...

[gsh]

ACHTUNG: OnActivate kann imho öfter ausgelöst werden. z.b. wenn das fenster den fokus verliert und ihn dann wieder erhaltet

[TStringlist]

Erzeug doch die Form immer dynamisch (wenn Du sie öfters brauchen solltest) und nimm dann das Release.

[xZise]

Zitat:

Zitat von gsh

ACHTUNG: OnActivate kann imho öfter ausgelöst werden. z.b. wenn das fenster den fokus verliert und ihn dann wieder erhaltet

Jo war mir klar, und habe deshalb eine Variable eingeführt, die einen bestimmten status zeigt (nicht gestartet, gestartet, beendet, fertiggestellt etc.) ;)

Zitat:

Zitat von TStringlist

Erzeug doch die Form immer dynamisch (wenn Du sie öfters brauchen solltest) und nimm dann das Release.

Hmmm... Aber irgendwie ist es jetzt bequemer :P

[turboPASCAL]

Das ist irgend wie Unsinnig.

Schribe eine extra Downloadprocedue oder Function. Am Ende Dieser schliesst du dein Formular einfach mit Close.

[xZise]

Das ist jetzt aber irgendwie seltsam :|
Im Test (ohne irgendetwas), schloss sich das Fenster wie erwartet, aber so nicht:

Delphi-Quellcode:

procedure TfrmInstall.FormActivate(Sender: TObject);
var
  lStream: TFileStream;
  fileData, extract : string;
  write : Boolean;
begin
  if status = NOT_STARTED then
  begin
    status := STARTED;
    
    item := 0;

    while status = STARTED do
    begin
      ind(item);
      if item > High(data) then
        status := FINISHED;
    end;
    bFinalize.Caption := 'Finalize';
  end;

  if (status = FINISHED) and (autoclose) then <!---
    close; <!---
end;

Und er springt auch in das Close; rein :|

[turboPASCAL]

Zitat:

Zitat von gsh

ACHTUNG: OnActivate kann imho öfter ausgelöst werden. z.b. wenn das fenster den Fokus verliert und ihn dann wieder erhaltet

:!:

:dp: