Discussion :

[Gregory666]

Bonjour a tous,

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

Code Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gregory666]

Bonjour Paul TOTH

Merci pour votre aide

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.

[Papy214]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Btn.ModalResult := mrok;