Esiste un modo per utilizzare UNA procedura per più pulsanti in Pascal?

Question

Sto cercando un modo per utilizzare una procedura per più pulsanti. È per un quiz come se dovessi premere il pulsante 1 per la domanda 1, ma copiare e incollare l'intero codice per 36 pulsanti e cambiare le variabili per 36 pulsanti non è davvero divertente per nessuno.

così ho pensato che qualcosa di simile sarebbe possibile:

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

X è la variabile.

È qualcosa del genere possibile o ci sono altri modi per acquisire lo stesso risultato?

Answer 1

Il modo più semplice per farlo è:

1. Numero i pulsanti che utilizzano la proprietà Tag in Inspector (o in codice quando vengono creati) per raccontare facilmente a parte. (Oppure assegnare il valore che si desidera passare alla procedura/funzione quando si fa clic su quel pulsante.)

2. Creare un gestore di eventi e assegnarlo a tutti i pulsanti che si desidera gestire con lo stesso codice.

3. Il parametro Sender che riceve l'evento sarà il pulsante su cui è stato fatto clic, che è possibile quindi trasmettere come TButton.

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