function/procedure pausieren verhindern

[calculon]

Zitat von calculon:

Hi Leute,

wenn ich beispielsweise eine Prozedur habe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
i: integer; 
begin 
for i := 0 to 1000000 do 
  begin 
    listbox1.Items.Add(inttostr(i)); 
    application.ProcessMessages; 
  end; 
end;

und während diese läuft und ich in der Listbox scrolle oder die Form auf dem Desktop verschiebe, dann pausiert die Prozedur bis ich die Maus wieder loslasse. Kann man das unkompliziert verhindern?

...womit wir wieder beim Thema wären

Gruß

Calculon
--