TStatusbar in welchem Ereignis?

[calculon]

Hi Leute,

beim Starten soll in meinem Programm ein Verzeichnis durchsucht werden und die gefundenen Dateien in eine Combobox geschrieben werden.

Nun wollte ich beim Starten in einem Panel der Statusbar den Text 'Scanning directory...' und wenn fertiggescannt dann 'Scanning finished' einblenden lassen. Jedoch erscheint der Text verständlicherweise im OnCreate-Ereignis der Form nicht. Nur wenn alles fertig ist, steht da halt mein 'Scanning finished'.

Jetzt wollte ich fragen wie ich denn das Programm starten und dann mein Scan durchführen (mit Beschriftungen in der Statusbar) lassen kann? Gibt's dafür ein Extra-Ereignis?

Gruß

Calculon
--

[dataspider]

Hi,

ich gehe immer wie folgt vor:

Im Constructor setzte ich Application.OnIdle auf eine Methode.
In dieser Methode setzte ich erst Application.OnIdle wieder auf nil und starte dann meinen Code.

Cu, Frank

[FAlter]

Hi,

meine Variante sähe dann so aus:

Eine Variable FirstStart wird im OnCreate auf True gesetzt.

Dann das OnActivate:

Delphi-Quellcode:

begin
  if FirstStart then
  begin
    FirstStart := false;

    StatusBar.SimpleText := 'Scanning directory...';
    Application.ProcessMessages;

    ScanDirs;

    StatusBar.SimpleText := 'Scanning finished.';
  end;
end;

Mfg
FAlter

[calculon]

Hi nochmal,

danke für die Antworten. Habe mich für Falters Methode entschieden, da sie sehr schnell umzusetzen ist (Ich bin mir auch über die Nachteile: Bei jedem OnActivate wird eine Prüfung durchgeführt und Einführung einer globalen Variable - bewusst).

Gruß

Calculon
--