Mehrere Buttons, selbe Funktion mit Arrays

[himitsu]

Entweder du prüfst den Sender (Name oder besser noch die Instanz selber) und wählst darüber einen der Array-Indize aus

Delphi-Quellcode:

if Sender = Button1 then i := 1
else if Sender =  Button2 then i := 2
...

farbe[i] := ...

oder du verwendest das Tag-Property (TComponent.Tag):
- weise im OI jedem Button die Indexnummer dem Tag-Property zu und verwendest dann in der Prozedur TComponent(Sender).Tag als Index.