Tid på et spil!?

sæt en timer på din form og sæt dens interval til 5000 sæt enabled til true og i dens ontimer hændelse skriver hvad der skal ske efter 5 sek

bruger cursor egenskaben

tak kfz, men det jeg leder efter er en metode så jeg kan sætte en Timers interval til fx. 10000, og så kan jeg koble andre procedure eller functioner på!
Fx. noget i stil med:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 10000;
 
  if Timer1.Interval = 2000 then
  Showmessage('SÅ ER DET TID');
end;

Ellers skal jeg til at lave UENDELIGT mange Timers!

Er der nogen der kan forklare mig hvordan jeg gør det??

Prøv at forklar dig lidt bedre - jeg fatter ikke helt hva' du mener med at du skal starte uendeligt mange timere?

- Hvad skal timeren sætte igang?
- Er det det samme hver gang?
- Er det samme interval tingene skal ske på?

Gi' os lidt mere at arbejde med :-)

sæt timeren til 1000 (1 sec). Lav en variable som:
ftime:integer;

så når timeren startes:
ftime := 0;
timer1.enbled := true;

i ontimer:
inc(ftime);

if ftime = 2000 then
    showmessage('Der gik 2 sec');

if ftime = 5000 then
    showmessage('Der gik 5 sec');

drop en TTimer på din form og skriv følgende:


procedure StartEnProcedure;
begin
  form1.caption := 'hej med dig';
end;

procedure TForm1.FormCreate(sender: TObject);
begin
  timer1.interval := 5000;
end;


procedure TTimer1Timer(sender: TObject);
begin
  StartEnProcedure;
end;

ups mit skal self være:

if ftime = 2 then
    showmessage('Der gik 2 sec');

if ftime = 5 then
    showmessage('Der gik 5 sec');