Create : TFrom & Tbutton [Close TForm]

Bonjour a tous,

comment fermé le from créé par un bouton dynamique

Code Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

var Box : TForm; Btn : TButton begin Box := TForm.Create(nil); Btn := TButton.Create(Box); with Btn do begin Parent := Box; ...

---

Merci de votre réponse :).

Code:

---

1 2 3 4 5 6 7 8 9

... Btn.OnClick := BtnClick; ..   procedure TForm1.BtnClick(Sender: TButton); begin Close; end;

---

il est possible aussi de dériver TButton en surchargeant sa méthode Click

Bonjour Paul TOTH

Merci pour votre aide :ccool:

Mais mon souci c'est que je voudrai tout simplement créer un form dynamique pour indique des erreurs d'événements.

Composant dynamique du Tform créer (TButton,TImage,TMemo).

Mais mon probléme c'est que j'aimerai mais le TButton = Ok sur un événement Close TForm que j'ai créer dynamiquement.

Est tout sa mi dans une unité a par.

:bug:

Code:

---

Btn.ModalResult := mrok;

---