|
Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
31. Dez 2002, 12:42
Versuch es mal so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Form2.Show;
for i := 0 to 100000 do
begin
Listbox1.Items.Add(IntToStr(i));
Form2.Progressbar1.Position := i;
end;
Form2.Hide;
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
|