Eine Procedure für mehrere Buttons

[Ioyou]

Ich bin realtiv unerfahren mit Pascal und wollte ein einfaches Programm schreiben. Dazu habe ich 16 Buttons die selbst nichts anderes machen als zwei andere Proceduren aufzurufen. Nun scheint es mir etwas umständlich für jeden Button eine einzelne Procedur zu erstellen die dazu nur aus zwei Zeilen Code besteht. Meine Frage ist nun ob jemand einen weg kennt für alle 16 Buttons eine Procedure zu erstellen?
Zu dem währe es relativ wichtig für das Programm, wenn ich obwohl ich nur eine Procedure habe trotzdem mit einer Variable den Eigentlichen Button von welchen das Signal besendet wurde unterscheiden könnte da ich die zwei, inerhalb der Procedure aufzurufenden Proceduren mit einer Integer Variable aufrufen muss.
Von der Idee her also:

Delphi-Quellcode:

procedure TForm1.ButtonXClick(Sender: TObject);
begin
Procedure1(X);
Procedure2(X);
end;

Hoffe was ich meine ist verständlich und möglich.

[Singlepin]

Im Objetinspektor->Ereignisse kannst du jedem Button die gleiche Procedure zuweisen und über Sender kannst du ermittel welche Taste das Ereignis ausgelößt hat.

[Ioyou]

Zitat:

Zitat von Singlepin (Beitrag 1173042)

Im Objetinspektor->Ereignisse kannst du jedem Button die gleiche Procedure zuweisen und über Sender kannst du ermittel welche Taste das Ereignis ausgelößt hat.

Danke das funktioniert:thumb:
Das einzige was bleibt ist das ich nach wie vor keine Idee habe wie ich jetzt von einen Button zu verschiedenen Prodceduren kommen soll. Wenn jemand da ne Idee hätte wär das echt toll.

[mkinzler]

Mit einem Ereignis kann nur eine Methode verknüpft werden

[DeddyH]

Ich verstehe Dein Anliegen zwar noch nicht ganz, aber Du könntest Deinen Buttons in der Tag-Eigenschaft eine Zahl hinterlegen, die Du dann auswerten bzw. weitergeben kannst.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender is TButton then
    begin
      Procedure1(TButton(Sender).Tag));
      Procedure2(TButton(Sender).Tag));
    end;
end;