TStatusbar in welchem Ereignis?

[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