title image


Smiley Re: einen counter zähler min.sec
so langsam solltest du diese grundlagen aber können.



var

laufzeit : TTime;



procedure TForm1.FormCreate(Sender: TObject);

begin

timer1.Enabled := false;

laufzeit := 0;

label1.Caption := '00:00:00';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled := true;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

laufzeit := laufzeit + (1/86400);

label1.Caption := TimeToStr(laufzeit);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled := false;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

FormCreate(sender);

end;


TDelphiAnfaenger


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: