Delphi problem mit Timer

Thema durchsuchen

Ansicht

Themen-Optionen

problem mit Timer

Ein Thema von Arrayuser · begonnen am 8. Jan 2009 · letzter Beitrag vom 8. Jan 2009

Antwort

Arrayuser

Registriert seit: 17. Mär 2008
35 Beiträge

Re: problem mit Timer

8. Jan 2009, 19:48

OK habs gelöst!

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Timer1Timer(Sender: TObject);

begin

form1.Timer1.Enabled:=true;

timer1.Tag:=timer1.Tag+1;

edit2.Text:=inttostr(timer1.Tag);

Edit1.Text:=Timetostr(time);

with image1.Canvas do

begin

pen.Color:=clred;

brush.Color:=clred;

ellipse(timer1.Tag*50-5,5,timer1.Tag*50-45,45);

end;

end;

nun habe ich das problem wie ich das zählmechanismus einbauen kann, das von 1 bis 4 und zurück zählt!