Einzelnen Beitrag anzeigen

Gurkendieb

Registriert seit: 6. Jan 2007
13 Beiträge
 
Delphi 2006 Architect
 
#1

Countdown-Frage

  Alt 20. Jan 2007, 15:13
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 )
  Mit Zitat antworten Zitat