Button von Nutzer erstellen

[Smaraner]

Hallo,

gibt es eine Möglichkeit, vom User einen Button zu erstellen? Also, wenn er auf einen Button klick das ein neuer erstellt wird.

Gruß Sebastian

[WM_CLOSE]

Delphi-Quellcode:

var
  Button: TButton;
begin
  Button := TButton.Create;
  Button.Parent := Form;
  Button.Text := "Muh!";
end;

Bitte korrigiert mich, wenn ich falsch liege.

[Smaraner]

Es wird jetzt der Fehler ausgegeben:

Nicht genügend Parameter bei

Delphi-Quellcode:

Button := TButton.Create

[Jonas Shinaniganz]

Dann übergibst du noch einen Owner, am besten die Form.

Grüß

[Smaraner]

Danke, hat geklappt. :-D

[Smaraner]

Wie kann ich es jetzt hinbekommen, das dieser ersellte Button das beim klicken ausführt:

Delphi-Quellcode:

 Application.MessageBox('Test', 'Test', MB_ICONQUESTION or MB_OK);

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

[Smaraner]

Der Button wird ja aber vom Nutzer erstellt, nicht von mir, und der kann den Button ja beliebig benennen.

[DeddyH]

Lass die Namenszuweisung weg, das klappt eh nur 1 mal. Und benennen kann der User den Button wohl kaum, höchstens beschriften.

[uligerhardt]

Zitat:

Zitat von nuclearping (Beitrag 1193262)

Delphi-Quellcode:

  if not (Sender is TButton) then
    Exit;
  Button := Sender as TButton;

Wenn man schon mit

Delphi-Quellcode:

is

geprüft hat, ob ein Cast zulässig ist, kann man beherzt hart casten:

Delphi-Quellcode:

Button := TButton(Sender);

Gibt's eigentlich irgendwo eine Seite, die das gut erklärt, damit man was zum Verlinken hat?