Jeg søger et svar til...

I LÆRE DET SKU ALDRIG !!!!!

s.b.a>> Der skal R på lære :-))

hehe....nå ja.... ;oa jeg skal vist have lidt mere gramatik

gramatik  = grammatik ;o)

:-)

Jeg har et eks. til dig.

http://www.tradestone.dk/eksperten/eks166988.zip

Stoney

Jeg har sendt mit forslag en gang til. (til cypher...)
//hreiff

De begge kan bruges.
Tak gutter :)

kan det lade sig gøre at man skal trykke på knappen så den tæller klik og skifter billede mellem de 2 istedet for at trykke på billedet?

I mit eks. sætter du følgende kode ind på din knap

procedure TForm1.Button2Click(Sender: TObject);
begin
if timer1.Enabled then
museklik := museklik + 1;
label2.caption := inttostr(museklik);
if (museklik mod 2 = 0) then
image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'delphi1.jpg')

else
image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'delphi2.jpg');
end;

Det er koden fra onmousedown på formen, den kan du så bare slette der, hvis
det ikke skal tælle når du klikker på formen.

Stoney

Jeps, Du indsætter bare en knap, og istedet for TForm1.Image1Click bruger du bare
TForm1.Button2Click(Sender: TObject); (*Den nye knap*)
Begin
  inc(Klik);
  label1.caption := intToStr(Klik);
  skift;
End;

Tak, og forresten.
Kan det gøres sådan at det hele sker på samme knap, sådan at når man har trykket så går den igang og så trykekr man på den samme knap for at klikke, og når tiden er gået trykker man der igen og så starter den igen som før?
ps. jeg bruger ikke længere scorpius :)

/Deacon

Det kan du godt, men så skal du undersøge om tiden er igang.

TForm1.Button2Click(Sender: TObject);
Begin
  If Timer1.enabled=true then
  Begin
    inc(Klik);
    label1.caption := intToStr(Klik);
    skift;
  End
  else
  Begin
    (*Nulstilling af antal klik og tid osv.*)
    (*Fra den oprindelige knap*)
  End;
End;