Timer

[deagel]

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]