Arraynummern von Button zu Prozedurparametern machen

[400kmh]

Hallo,

ich habe folgendes Problem:

Ich habe einige Button wie folgt deklariert: Button: array [1..10,1..10] of TButton;
Beim Anklicken all dieser Button soll dieselbe Prozedur ablaufen. Für die Prozedur spielt es jedoch eine entscheidende Rolle welcher Button angeklickt wurde.
Mein Problem ist, dass ich nicht weiß, wie ich die Arraynummern des angeklickten Buttons zu Parametern der Prozedur mache. Kann mir das jemand erklären?

[theo]

Du kannst z.B. den Tag auswerten:

Code: Alles auswählen

procedure TForm1.ButtonsClick(Sender:TObject);
begin
  if Sender is TButton then ShowMessage(Inttostr(TButton(Sender).Tag));
end;

Dabei musst du nat. jeden Button.Tag beim createn durchnummerieren.

Du kannst auch das Array durchlaufen, und schauen, welcher Button dem Sender entspricht.

P.S. Arrays beginnt man normalerweise mit 0.