Forum: Object-Pascal / Delphi-Language
Delphi
by Arrayuser,
8. Jan 2009
OK habs gelöst!
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Arrayuser,
8. Jan 2009
ich möchte image benutzen da ich es kenne, was anderes möchte erstmal nicht nagfangen, es geht ja alles im image.
und ich möchte das sich der tag jede sekunde ändert,dabei kan ich doch nicht aus der button prozedur raus!?
das sol ja so aussehen das sich der timer so ändert : 1 ->2 ->3 ->4 ->3 ->2 ->1 ->2 usw. in einer unedlichschleife.
Forum: Object-Pascal / Delphi-Language
Delphi
by Arrayuser,
8. Jan 2009
Hallo, ich experementiere etwa mit med Timer, hab aber kleine probleme:
Ich möchte das eine kugel(ellipse) auf einer image mit hilfe des timers bewegt, ich habs mir überlegt das diese kugel jede sekunde um 50 pixel weiter bewegt, dazu hab ich einen code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit1.Text:=Timetostr(time);
form1.Timer1.Enabled:=true;...