TButton wie auf Attribute/Methoden des Zeiger zugreifen

[blixxi]

Hallo liebes Forum,

ich wollte mich einbisschen in die Programmierung mit Lazarus probieren und was kommt meist nach dem "Hello World", naja zumindest bei grafischen Oberflächen ein Taschenrechner, dabei bin ich vor folgende, evtl. nur gedankliche, Wand gelaufen:

Ich habe in meine Form 10 Button angelegt (0 ... 9), nun könnte ich für jeden Button eine eigene onClick-Methode aufrufen, was aber, wie ich finde nicht gerade schön ist, also habe ich mir gedacht, da im Methoden Aufruf, ein Pointer zum aufrufenden Objekt mit übergeben wird, müsste es doch möglich sein dies über eine Methode zulösen, nur bin ich irgendwie zublöde, um an ein Attribut oder Methode, des aufrufenden Objekt ranzukommen, wäre evtl. jemand so freundlich mir evtl. den richtigen Denkanstoss zugeben?

[theo]

OnClick hat einen Sender Parameter. Diesen kannst du typecasten.

if Sender is TButton then
if TButton(Sender).Tag=....

oder was auch immer.

[pluto]

Es geht auch noch allgemeiner
statt so

Code: Alles auswählen

if Sender is TButton then
if TButton(Sender).Tag=....

könntest du es auch nach TComponent Casten. Weil ein Tag sollten eigentlich alle Komponenten haben.