Gibt es eine Möglichkeit, ein Verfahren für mehrere Tasten in Pascal zu verwenden?

Question

Ich suche nach einer Möglichkeit, ein Verfahren für mehrere Tasten zu verwenden. Es ist für ein Quiz, dass Sie Knopf 1 für Frage 1 drücken müssen, aber den gesamten Code für 36 Knöpfe kopieren und einfügen und die Variablen für 36 Knöpfe ändern ist nicht wirklich lustig für irgendjemanden.

Also dachte ich, so etwas wie dies möglich wäre:

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

X ist die Variable.

Ist so etwas möglich oder gibt es andere Möglichkeiten, das gleiche Ergebnis zu erhalten?

Answer 1

Der einfachste Weg, dies zu tun ist:

1. Nummerieren Sie die Tasten, um die Tag Eigenschaft im Objektinspektor (oder in Code, wenn sie erstellt wurden), um sie leicht auseinander halten verwenden. (Oder geben Sie den Wert an, der an Ihre Prozedur/Funktion übergeben werden soll, wenn auf diese Schaltfläche geklickt wird.)

2. Erstellen Sie einen Ereignishandler und weisen Sie ihn allen Schaltflächen zu, die mit demselben Code behandelt werden sollen.

3. Der Sender Parameter, den das Ereignis empfängt, ist die Schaltfläche, auf die geklickt wurde, die Sie dann als TButton umwandeln können.

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