oki das hlft mir schon mal sehr weiter jetzt müsste ich nur wissen wie es geht :
bei //mach was anderes <-- da möchte ich die procedure
Delphi-Quellcode:
procedure TForm1.startClick(Sender: TObject); // <----DIESE PROCEDURE möchte ich ins laufen bringen..
Procedure pause(t : longint);
Var start : longint;
Begin
Start:= gettickcount;
While gettickcount < start+t do
Application.processmessages
end;
begin
x:=strtoint(eingabe.text);
i:=x;
For i:=x downto 0 do
begin
ausgabe.caption:=inttostr(i);
fortschritt.position:=trunc((x-i)*(100/x)) ;
pause(1000);
end;
end;
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]