Discussion :

[chh2008]

Bonjour,

Je lance la création d'un form avec boutton
Je n'arrive pas a coder la fermeture de la formen cliquant sur le bouton
Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Procedure TFrom1.Button1Click(sender: Tobject);
var
frm: TForm;
Btn:TButton;
Begin
  Frm:=TForm.create(self); 
  Btn:=TButton.create(self); 
  Btn.parent:=Frm;
  Btn.Click:=ClickBtn;
  Frm.ShoxModal;
End;

Code :

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

1
2
3
4
5
 
Procedure TFrom1.ClickBtn(sender: Tobject);
Begin
//I want to close the window dynamically created
End;

[Andnotor]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure TFrom1.Button1Click(sender: Tobject);
var
  Frm :TForm;
  Btn :Button;
 
Begin
  Frm := TForm.create(self); 
  Btn := TButton.create(Frm); 
  Btn.Parent  := Frm;
  Btn.OnClick := ClickBtn;
  Frm.ShowModal;
  Frm.Free;
End;

Code :

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

1
2
3
4
5
 
Procedure TFrom1.ClickBtn(sender: Tobject);
Begin
  TForm(TControl(Sender).Parent).ModalResult := mrOk;
End;

[Paul TOTH]

tant qu'à faire les choses à la main, autant bien les faire.

1) s'il suffit juste de fermer la fenêtre Button.ModalResult := mrOK suffira.

2) sinon autant dériver TButton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
type
  TCloseButton = class(TButton)
  public
    constructor Create(AForm: TForm);
    procedure Click; override;
  end;
 
constructor TCloseButton.Create(AForm: TForm);
begin
  inherited Create(AForm);
  Parent := AForm;
end;
 
procedure TCloseButton.Click;
begin
  TForm(Parent).ModalResult := mrOK;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Frm :TForm;
  Btn :TCloseButton;
Begin
  Frm := TForm.Create(self);
  Btn := TCloseButton.Create(Frm);
  Frm.ShowModal;
  Frm.Free;
End;

ou même surcharger TForm (avec un appel à CreateNew pour éviter le chargement d'un DFM)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
  TClosableForm = class(TForm)
  public
    constructor Create(AOwner: TComponent);
  end;
 
constructor TClosableForm.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner);
  TCloseButton.Create(Self);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Frm :TClosableForm;
Begin
  Frm := TClosableForm.Create(self);
  Frm.ShowModal;
  Frm.Free;
End;

[ShaiLeTroll]

Pour traduire la première proposition de Paul TOTHTButton.ModalResult

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure TFrom1.Button1Click(sender: Tobject);
var
  frm: TForm;
  Btn:TButton;
Begin
  Frm := TForm.create(self); 
  Btn := TButton.create(Btn); 
  Btn.Parent := Frm;
  Btn.ModalResult := mrOK; // rien de plus ! cela se fera tout seul !
  Frm.ShoxModal;
  Frm.Free;
End;