Button von Nutzer erstellen

[nuclearping]

Delphi-Quellcode:

unit Form1;

interface

...

type
  TForm1 = class(TForm)
    ...
  private
    procedure CreateButton;
    procedure MyButtonClick(Sender: TObject);
  public
    ...
  end;

implementation

procedure TForm1.CreateButton;
var
  Button: TButton;
begin
  Button := TButton.Create;
  Button.Parent := Form;
  Button.Caption := 'Muh!';
  Button.Name := 'MeinButton1';
  Button.OnClick := MyButtonClick;
end;

procedure TForm1.MyButtonClick(Sender: TObject);
var
  Button: TButton;
begin
  if not (Sender is TButton) then
    Exit;

  Button := Sender as TButton;
  ShowMessage(Button.Name + ' wurde angeklickt: ' + Button.Caption);
end;

...

end.