Label

on key event laver du bare:

label1.caption := Inttostr(Strtoint(label1.caption) +1);

så sætter du bare label's caption til at være 0 fra start...

/ZIRON

og så en if sætning som stopper ved 256 :)

/ZIRON

On keydown eller up?? i button eller label??!

Button1Click

/ZIRON

Det skal være sådan at når klikker EN/1 gang på button1 så begynder label's caption at være 1,2,3,........256 selv.. den skal selv tælle op, ikke sådan at jeg skal til at klikke hele tiden

så sæt en timer ind. og så på knappen sætter du timeren til at kører...

ja, men hvordan!! det er jo nok derfor jeg åbnede en spm.

du insætter en timer er under system i fanebladene. og der sætter du dens default Enabled til False, og så dobbeltklikker du på timeren. og så sætter du koden ind:

  label1.caption := Inttostr(Strtoint(label1.caption) +1);

og så på knappes onclick stætter du koden:

  timer1.Enabled := True;

/ZIRON

her er et eksempel hvor du definer hvornår din label har nået de 256.

jeg bruger en edit og skriver 256 i edit feltet, når label har talt op til 256 stopper timeren.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := Inttostr(Strtoint(label1.caption) +1);
if
Label1.Caption  = edit1.Text then
Timer1.Enabled:=False;
  end;

stone> hvordan gøre jeg så sådan at timer tæller lidt hurtigere..?

hmm hvad er en hjælpefil???

armena> Du sætter interval i Object Inspector'en ned.

Sæt TTimer interval efter hvor hurtigt den skal tælle i Object properties
som standard er den sat til 1000 - prøv dig frem.

armena>1000=1sek.. så kan du prøve dig lidt frem..

tak allesammen.. lukker nu..
Yousif> Det er længe siden vi har snakket sammen, kan du ikke lige komme på msn klokken 20:00 idag eller imorgen??