Klicks auf Buttons in einem Formular zählen

[scrat1979]

Hallo zusammen!

Sagen wir, ich hätte auf einem Formular z.B. 10 Buttons. Wie kann ich nun z.B. alle 4 Klicks (wobei egal ist auf welche Buttons geklickt wird) eine ShowMessage anzeigen. Klar, ich könnte allen Buttons die gleiche Onclick-Prozedur zuweisen und einen Zähler integrieren. Ich möchte aber (zu Lernzwecken) eine allgemeine Prozedur verwenden und die Klicks sozusagen über das Formular abfangen (müsste doch irgendwie mit "if sender=TButton Then inc(zaehler)" oder ähnlich gehen!?!. Ich hoffe Ihr versteht was ich meine :oops:

SCRaT

[mkinzler]

Delphi-Quellcode:

if Sender is TButton

[scrat1979]

Sehr gut, wenigstens hab ich das richtig in Erinnerung :-)
Mir stellt sich nur die Frage so ich den code einfügen muss (OnClick-Ereignis des Formulares etc.) oder muss ich da eine Message abfangen? Da stecke ich leider fest.

SCRaT

[Christian Seehase]

Moin Scrat,

jedem Button für das OnClick die gleiche Routine zuzuweisen, wäre ja eine allgemeine Routine.

[scrat1979]

Zitat:

Zitat von Christian Seehase

Moin Scrat,

jedem Button für das OnClick die gleiche Routine zuzuweisen, wäre ja eine allgemeine Routine.

Hmmm, naja, das stimmt schon. Aber da ich ja eben Lernen möchte wie es auch durch "Abfangen" der Klicks durch eine Routine im Formular geht, kommt das leider nicht in Frage. Sonst wäre das bestimmt eine Lösung :-)

SCRaT

[Hellfire]

Hi,

Globale Variable...

var
intzaehler :INTEGER;


und diese bei jeder ButtonClickProzedur +1...