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?

[DeddyH]

Zumindest hier in der DP wurde das schon mehrfach erwähnt.

[nuclearping]

Zitat:

Zitat von Smaraner (Beitrag 1193266)

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

Und in was für einer Relevanz steht das zu dem geposteten Beispiel-Code? Wenn du nicht willst, dass auf dem Button "Muh!" steht, sondern das, was der Benutzer angegeben hat, musst du das halt entsprechend abfragen und an den Button weitergeben (zB mit einem Parameter für die CreateButton-Funktion):

Delphi-Quellcode:

procedure TForm1.CreateButton(ACaption: String);
begin
  ...
  Button.Caption := ACaption;
  ...
end;

[hoika]

Hallo,

Um deine Buttons intern besser zu unterscheiden,
gäbe es dann noch das Property Tag.
Das ist ein Integer zu Deiner freien Verwendung.

Heiko

[DeddyH]

Oder man packt sie in eine TObjectlist/TComponentlist, dann kann man sie über ihren Listenindex ansprechen. Man muss sich nur überlegen, wer für die Speicherverwaltung zuständig sein soll, Owner oder Liste.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1193315)

Oder man packt sie in eine TObjectlist/TComponentlist, dann kann man sie über ihren Listenindex ansprechen. Man muss sich nur überlegen, wer für die Speicherverwaltung zuständig sein soll, Owner oder Liste.

Warum eigentlich nicht das naheliegenste?

Delphi-Quellcode:

type
  TForm1 = class( TForm )
  ..
  private
    ButtonOwner : TComponent;
  ..
  end;

// Bei der Form Erstellung
ButtonOwner := TComponent.Create( Self );

[DeddyH]

Den Ansatz verstehe ich ehrlich gesagt nicht. :gruebel:

[Sir Rufo]

Delphi-Quellcode:

TButton.Create( ButtonOwner );

[DeddyH]

Um dann über die Komponente bzw. ihr Components-Array auf die Buttons zuzugreifen? Da erscheint mir eine Liste aber logischer.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1193330)

Um dann über die Komponente bzw. ihr Components-Array auf die Buttons zuzugreifen? Da erscheint mir eine Liste aber logischer.

Wo ist der Unterschied, ausser dass du bei der Verwendung einer normalen Liste den Overhead mit der Nachführung beim Hinzufügen und Entfernen von diesen Buttons hast?

[DeddyH]

Die eine Zeile in der CreateButton-Methode macht den Kohl doch auch nicht fett. Für mich sieht es nur komisch aus, wenn man ein VCL-Element wie TComponent dazu benutzt, um Listenelemente zu verwalten. Wobei ich damit nicht sagen will, dass man das nicht machen darf, es funktioniert ja auch. Allerdings würde ich mich vermutlich wundern, wenn in einem Code plötzlich eine Komponente auftaucht, die scheinbar nirgends genutzt wird, außer wenn man ihre Components anspricht.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1193335)

Für mich sieht es nur komisch aus, wenn man ein VCL-Element wie TComponent dazu benutzt...

Das war mir irgendwie entgangen, dass TComponent direkt zur VCL gehört?
Ich dachte immer, dass ist ein Basistyp (System.Classes.TComponent), der auch von der VCL (oder auch FMX) benutzt wird :stupid:

[Jonas Shinaniganz]

Zitat:

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

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

Zuerst erstellst du dir ein Event, welches deinen Code ausführt.

Delphi-Quellcode:

unit Form1;

interface

...

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

implementation


procedure TForm1.MyButtonClick(Sender: TObject);
begin
  Application.MessageBox('Test', 'Test', MB_ICONQUESTION or MB_OK);
end;

end.

Jetzt muss der Button noch wissen, das er dieses Event auch aufrufen soll:
(Die Zuweisung kannst du z.b. dort machen, wo du den Button auch erstellst)

Zitat:

Button.OnClick := MyButtonClick; // das Event dem OnClick deines Buttons zuweisen

Weiterführend dazu kannst du dir noch durchlesen:
(procedure of object)
http://www.delphi-treff.de/object-pa...ethodenzeiger/

[DeddyH]

Zitat:

Zitat von Sir Rufo (Beitrag 1193336)

Das war mir irgendwie entgangen, dass TComponent direkt zur VCL gehört?

Das wird mir jetzt zu blöd. Ich persönlich ordne TComponent allein schon aufgrund des Bezeichners unter VCL ein, wenn Du das nicht tust, ist das eben Deine Sache.

[himitsu]

Nja, bis vor FMX wurde es von Delphi selber ja praktisch fast ausschließlich nur für die VCL genutzt ... da könnte man schon auf den Gedanken kommen, daß der Typ auch zu VCL gehört.

Ab TWinControl isses definitiv für die "visuelle" VCL, davor sind es einfach nur Komponenten, welche über eine gemeinsame Owner-Beziehung verfügen.

[Jonas Shinaniganz]

Der Neuling hat doch noch nichtmal nach der Referenzverwaltung gefragt oder überhaupt das Problem entdeckt. Vielleicht ist sein Button ja auch nach dem ersten "KLICK" disabled oder sowas.

Das sind Kommentare die (projeziert) gegen CleanCode verstoßen und ich hoffe, dass sich dasGeschwätz nicht von hier bis zu euren Sourcen erstreckt. :-D (hui, ich hab eine unpolitische Aussage getroffen)

Trefft euch auf einen Kaffe, ich sehe da viel Gesprächsstoff-Potential :D