Czy istnieje sposób użycia JEDNEJ procedury dla wielu przycisków w Pascalu?

Question

Szukam sposobu użycia jednej procedury dla wielu przycisków. To dla quizu, jak w przypadku pytania 1, trzeba nacisnąć przycisk 1, ale skopiowanie i wklejenie całego kodu na 36 przycisków i zmiana zmiennych dla 36 przycisków nie jest dla nikogo zabawna.

Pomyślałem więc coś takiego byłoby możliwe:

procedure TForm1.Button[x]Click(Sender: TObject); 
begin 
    DoTask[x]; 
end; 

X jest zmienna.

Czy coś takiego jest możliwe, czy istnieją inne sposoby uzyskania tego samego rezultatu?

Answer 1

Najprostszym sposobem na to jest:

1. Ilość przycisków za pomocą właściwości w Inspektorze obiektów (lub w kodzie, gdy są one utworzone) Tag aby łatwo odróżnić je od siebie. (Lub przypisz wartość, którą chcesz przekazać do swojej procedury/funkcji, po kliknięciu tego przycisku.)

2. Utwórz jedną obsługę zdarzeń i przypisz ją do wszystkich przycisków, którymi chcesz obsłużyć ten sam kod.

3. Parametrem Sender, które otrzyma zdarzenie, będzie kliknięty przycisk, który można następnie odrzucić jako TButton.

   procedure TForm1.ButtonsClick(Sender: TObject); 
   var 
       TheButton: TButton; 
   begin 
       TheButton := Sender as TButton; 
       DoTask(TheButton.Tag); 
   end;