ProgressBar ohne sleep aber mit delay

[freak4fun]

Auch wenn es nicht ganz zum Thema passt:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  with Progressbar1 do
    begin
      Position := Position + 1;
      Case Position of
        97 : Label16.caption := '3...';
        98 : Label16.caption := '2...';
        99 : Label16.caption := '1...';
        100: Timer3.Enabled := False;
      end;
    end;
  if not Timer3.Enabled then
    Close;
end;

[edit]
Hab dann doch noch was zum Thema xD.

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject); 
begin 
timer4.Enabled:=true; 
end;

Wird beim starten des Programms ausgeführt. Du solltest das Timer4.Activate; im OnShow-Event des 2. Formulars machen.

[/edit]

MfG
freak