Hi
Habe mir den folgenden Countdown zusammengebastelt:
Delphi-Quellcode:
var
Form1: TForm1;
Zeit : Integer;
Counter : Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Zeit := StrToInt(Edit1.Text);
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
counter:= counter+1;
if(counter=zeit) then
begin
ShowMessage('Zeit abgelaufen');
Timer1.Enabled:=False;
counter:=0;
zeit :=0;
end
end;
Das funktioniert auch wunderbar, nur könnte ich die ablaufende Zeit eventuell in einem Label daarstellen lassen und wenn ja, wie?
(sorry, bin immer noch ein Noob
)