Discussion :

[QAYS]

Bonjour,
J'ai un problème avec une forme que je créer dynamiquement.

je m'explique.

je créer une form :

Code :

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

Form2 := Tform2.Create()

a la destruction

Code :

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

form2.release;

j'ai toujours dans l'inspecteur d'objet des information spour form2 en résumé il n'est plus a nil

pouvez-vous m'aider

merc

[ShaiLeTroll]

Tu as ton Singleton Form2 ... est-ce la seule variable qui contiendra une Tform2 (en gros, cette fenêtre n'est lancé qu'une fois à la fois ?), si oui, tu peux dans le Destructeur (override Destroy) ajouter une affectation à nil de ton singleton Form2 (tu as plein d'exemple sur le forum ICI ou LA)

[QAYS]

Bonjour,

merci de votre réponse, en fait je veux appeler cette forme plusieurs fois:

un peu comme outlook, soit
FormA := Tform2.Create;
FormB := Tform2.create;


Je peux fermer FormA la c'est ok par contre j'aurais des problème avec la formB (je fait surment quelque chose de pas bien)

D'ailleurs lorsque je creer la formA si je fait un showmald j'ai un message d'erreur

PS: il s'agit de mon premier programme (création d'objet écran)

Merci

[Tardiff Jean-François]

Bonjour,

Vous pouvez essayer quelque chose de ce genre.

1° Ajouter Dans votre forme un évènement A faire lors du OnClosequery de la forme.

Code :

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

1
2
 
  property EventWhereCloseQuery: TNotifyEvent read FEventWhereCloseQuery write FEventWhereCloseQuery;

Lors de la création de la form assigner cette procédure a une valeur

Code :

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

1
2
3
 
 FormA := TMyform.create(Self);
  FormA.EventWhereCloseQuery := MyProcedureClose;

Dans le OnClosequery de votre forme (TMyform) Tester si EventWhereCloseQuery Existe

Code :

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

1
2
3
4
5
 
  if assigned(EventWhereCloseQuery) then begin
    EventWhereCloseQuery(Self); // Lance la procedure
   CanClose := nil; // Anule la destruction
  end;

Maintenant implémenter la procédure que vous aller lancer durant le OnClose.
[CODE]
Procedure MyProcedureClose(Sender: TObject);
begin
If not (Sender is TMyform) then exit;
FormToClose := Sender As TMyforme;
FormToClose.EventWhereCloseQuery := nil;
TimerClose.Enabled := true; // Le timer peut être tres court, 10 ou 20 par exemple
End;

Dans le OnTimer de TimerClose vous pouvez Fermer/ Détruire la forme et fait tout les nettoyage que vous désirer.

Explication théorique:

Lorsque je fais le OnClose sur Le TMyform Je detecte la procedure EventWhereCloseQuery.
Je lance donc la procedure et j'annule la destruction.

La procédure Stoke la forme de type TMyform qui est a l'origine de l'apelle.
Elle mes sont évènement EventWhereCloseQuery à nil (ce qui évitera de boucler dans le Onclosequery de la forme) Et lance un timer.

Lorsque le time ce déclenche je suis en dehors de tout évènement de la forme a détruire. Et surtout en dehors des évènement qui interfèreront avec mes ordres de destruction (Un OnCloseQuery qui lance Un Destroy ou un free ne fonctionne pas correctement).
2tant à l'extérieure de la forme, je peut Chercher la référence de ma forme et nettoyer derrière mois.

Code :

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

1
2
3
4
5
 
  if  FormToClose = formA then begin
    ForAa.Destroy;
    FormA := nil;
  end;

Je sais, c'est lourd. J'en suis désolé, mais je n'ai pas mieux.

[QAYS]

JE vous remerci de votre aide, à charge de revanche

Cordialement
QAYS

[ShaiLeTroll]

il existe une autre méthode, il suffit d'ajouter dans une TList un Pointeur sur l'Objet (oui oui un pointeur sur le pointeur de référence pour le mettre à nil), tient ça devrait donner cela ...

il faut que FormA et FormB soient des variables globales ou à la limite une propriété d'un objet sans accesseur méthode ... en théorie cela fonctionne (en fait en pratique je viens faire le test, donc je fourni le code propre)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Frm_SingletonManager;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  PSingletonObject = ^TObject;
 
  TFrmSingletonManager = class(TForm)
    ButtonClose: TButton;
    procedure ButtonCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    destructor Destroy; override;
    class procedure AddSingleton(ASingleton: PSingletonObject);
    { Déclarations publiques }
  end;
 
var
  FrmSingletonManager: TFrmSingletonManager;
 
implementation
 
{$R *.dfm}
 
var
  _FrmSingletonManager: TList = nil;
 
class procedure TFrmSingletonManager.AddSingleton(ASingleton: PSingletonObject);
begin
  if not Assigned(_FrmSingletonManager) then
    _FrmSingletonManager := TList.Create(); 
 
  _FrmSingletonManager.Add(ASingleton);
end;
 
destructor TFrmSingletonManager.Destroy(); // override;
var
  i: Integer;
begin
  if Assigned(_FrmSingletonManager) then
  begin
    for i := 0 to _FrmSingletonManager.count - 1 do
    begin
      if PSingletonObject(_FrmSingletonManager.Items[i])^ = Self then
      begin
        // Items[i] pointe sur l'emplacement mémoire du pointeur de la variable contenant elle même le pointeur sur la référence ...
        PSingletonObject(_FrmSingletonManager.Items[i])^ := nil;
        _FrmSingletonManager.Delete(i);
        break;
      end;			
    end;
  end;
 
  inherited Destroy();
end;
 
procedure TFrmSingletonManager.ButtonCloseClick(Sender: TObject);
begin
  Close();
end;
 
procedure TFrmSingletonManager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;
 
initialization
  _FrmSingletonManager := TList.Create();
 
finalization
  if Assigned(_FrmSingletonManager) then
  begin
    _FrmSingletonManager.Free();
    _FrmSingletonManager := nil;
  end;
 
end.

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
31
32
33
34
35
36
37
38
var
  SingletonA, SingletonB, SingletonC: TFrmSingletonManager;
 
procedure TFrmTestDivers.BtnSingletonManagerAClick(Sender: TObject);
begin
  SingletonA := TFrmSingletonManager.Create(Self);
  TFrmSingletonManager.AddSingleton(@SingletonA);
  SingletonA.Show();
end;
 
procedure TFrmTestDivers.BtnSingletonManagerBClick(Sender: TObject);
begin
  SingletonB := TFrmSingletonManager.Create(Self);
  TFrmSingletonManager.AddSingleton(@SingletonB);
  SingletonB.Show();
end;
 
procedure TFrmTestDivers.BtnSingletonManagerCClick(Sender: TObject);
begin
  SingletonC := TFrmSingletonManager.Create(Self);
  TFrmSingletonManager.AddSingleton(@SingletonC);
  SingletonC.Show();
end;
 
procedure TFrmTestDivers.BtnSingletonManagerAIsNilClick(Sender: TObject);
begin
  ShowMessage(BoolToStr(not Assigned(SingletonA), True));
end;
 
procedure TFrmTestDivers.BtnSingletonManagerBIsNilClick(Sender: TObject);
begin
  ShowMessage(BoolToStr(not Assigned(SingletonB), True));
end;
 
procedure TFrmTestDivers.BtnSingletonManagerCIsNilClick(Sender: TObject);
begin
  ShowMessage(BoolToStr(not Assigned(SingletonC), True));
end;