ProgressBar ohne sleep aber mit delay

[mbamler]

Zitat von Faceman:

Hi.

Ich hab ein Problem und komme nicht weiter, bin auch noch Anfänger. Und zwar habe ich eine ProgressBar auf meiner Form, die nach 10 sekunden voll sein soll.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
  var i : Integer; 
begin 
  ProgressBar1.Min:=0; 
  ProgressBar1.Max:=100; 
  for i:=0 to 100 do 
    begin 
      ProgressBar1.Position:=i; 
      Sleep(100);  
    end; 
end;

Das Problem ist nur hierbei, dass das Programm diese 10 sekunden lang lahm gelegt ist und man nichts machen kann. Ich habe irgendwo gelesen, dass man das mit delay machen kann, aber ich kenn mich da nicht mit aus. Schließlich will ich ja in den 10 sekunden noch das Programm bedienen bzw. etwas anklicken. Könnt ihr den Quelltext verbessern?

Sorry ...
es muss natürlich so lauten

procedure TForm1.FormActivate(Sender: TObject);
var
i : Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=100;
for i:=0 to 100 do
begin
ProgressBar1.Position:=i;
Application.ProcessMessages;
Sleep(100);
end;
end;


Gruß
Matthias