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.