Eine Procedure für mehrere Buttons

[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;