Im onclick ereigniss des Buttons kannst du eine Global variabel zum hochzählen nehmen, wenn die anzahl erreicht, ausgabe der Message und variable wieder auf 0 setzen!
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| procedure TForm1.Button1Click(Sender: TObject); begin klick := klick + 1; if klick = 10 then begin SchowMessage('10 mal geklickt'); klick := 0; end;
end; |
In diesem einfachen Fall, kannst Du aber auch den Button1.Tag verwenden zum zählen
Gruss Alf
_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!