Question sur fonction assigned()

Bonjour à tous,
Comment savoir si une fenêtre est créée / affichées, je m'explique:
Quand je crée une fenêtre avec
      form1 := tform1.create(self) - self étant une fenêtre parent, je crée ma fenêtre bien
si dans mon code je teste assigned(form1), j'aurai True, bien.
si dans l'évenement OnClose de Form1 il y a Action := cafree pour détruire la fenêtre, celle-ci sera détruite, mais  la valeur du pointeur Form1 ne sera pas mise à nil, et dans ce cas, si je teste assigned(Form1) j'aurai True alors que la fenetre n'existe plus. En fait la procedure free détruit l'objet et libère l'expace mais ne met pas le pointeur à nil.

En fait, je veux enabler/disabler des actions (boutons, menus, ...)  dans une forme si d'autres forms sont présentes (Action1.enabled := True/False), mais comment être sûr que les fenetres sont présentes assigned(xxx) peut me retourner une valeur fausse.
Une solution serait de renseigner une variabl dans form1.create : form1_aff = true et dans form1.destroy : form1_aff=false, et je pourrais faire action1.enabled := not form1_aff, ... et ainsi de suite pour les autres forms, mais ce n'est pas très élégant.
L'autre solution serait de boucler sur toutes les forms de l'application, ça ne me plait pas non-plus.
Avez-vous une idée ?
Bonne journée à tous.

sinon  à la place de Composant.Free
tu peux utiliser FreeAndNil(Composant)

 
@+
Cirec

---

tu peux tester la visibilité de la forme après sa présence

if Assigned(Form1) then
 if Form1.visible then

nb : pas testé

cantador

Merci à tous les deux mais ça ne m'aide pas car:
  - Cirec - je ne veux pas utiliser xxx.Free ni xxx.FreeAndNil, je reste sur un close pour les forms et le close automatique pour les modals, (tu m'as quand même appris le freeandnill que je ne connaissait pas, merci)
  - cantador - je fais ton test et button1.enabled est false malgré que Form2 soit détruite. assigned(form2) retourne true et form2.visible aussi.

procedure TForm1.Button2Click(Sender: TObject);
begin
   form2:=tForm2.create(self);
   form2.show;
   // normalement le close est dans une autre proc
   // mais pour le test c'est pareil
   // je précise qu'il y a "Action:=caFree"
   // dans form2.onclose
   form2.close;
   if assigned(form2) then
      button1.enabled := not form2.visible;
end;
En plus il est possible que ça plante, car propriétés d'un objet détruit peuvent taper n'importe où en mem ...
 
Je vais mettre une variable dans chaque unit concernées genre Form1_vis : boolean, mise à true dans onCreate et false dans onclose, c'est moche mais au moins ça marche.
Si qq'1 a mieux à me proposer ...
Tcho à tous.
solilog

dans la fiche parent :

type
  TFormParent = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    fFormChild : TForm;
  public
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

var
  FormParent: TFormParent;

implementation

procedure TFormParent.FormCreate(Sender: TObject);
begin
  fFormChild := TForm.Create(Self);
  fFormChild.FreeNotification(Self);
end;

procedure TFormParent.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if (AComponent = fFormChild) and (Operation = OpRemove) then
    fFormChild := nil
  else
    inherited;
end;

---

ou encore :

type
  TFormParent = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    fFormChilds : TList;
  public
    function RegisterFormChild(AFormChild: TForm): integer;
    function UnregisterFormChild(AFormChild: TForm): integer;
  end;

var
  FormParent: TFormParent;

implementation

{$R *.dfm}

procedure TFormParent.FormCreate(Sender: TObject);
begin
  fFormChilds := TList.Create;
end;

procedure TFormParent.FormDestroy(Sender: TObject);
var N : integer;
begin
  for N := fFormChilds.Count-1  downto 0 do
    RemoveFreeNotification(TForm(fFormChilds.Items[N]));

  fFormChilds.Free;
end;

function TFormParent.RegisterFormChild(AFormChild: TForm): integer;
begin
  result := fFormChilds.IndexOf(pointer(AFormChild));

  if result = -1 then
  begin
    result := fFormChilds.Add(pointer(AFormChild));
    FreeNotification(AFormChild);
  end;
end;

function TFormParent.UnregisterFormChild(AFormChild: TForm): integer;
begin
  result := fFormChilds.IndexOf(pointer(AFormChild));

  if result <> -1 then
  begin
    RemoveFreeNotification(AFormChild);
    fFormChilds.Delete(result);
  end;
end;

---

en gros :

creation de l'objet ->
  doit notifier de sa liberation (Objet.FreeNotification(parent))

liberation de l'objet ->
  appel de notification automatique du parent avec operation OpRemove

exemple de code pour notification :

  if (AComponent = objetA) and (operation = OpRemove) then
  begin
    ButtonObjetA.visible := false;
    RemoveFreeNotification(fObjetAInstance);
    fObjetAInstance := nil;
  end
  else
  if (AComponent = objetB) and (operation = OpRemove) then
  begin
    ButtonObjetB.visible := false;
    RemoveFreeNotification(fObjetBInstance);
    fObjetBInstance := nil;
  end
  else
    inherited;

 

---

- cantador - je fais ton test et button1.enabled est false malgré que Form2 soit détruite. assigned(form2) retourne true et form2.visible aussi.
ce n'est pas possible...
si form2 est détruite (et son pointeur à nil) et que tu testes

button1.enabled := Assigned(form2);
 
ça doit marcher

cantador

Non cantador, c'est parce que button1créer.
La réponse de .enabled := Assigned(form2) retourne toujours True si Form2 a été une fois une fois créée.
La réponse de f0xi est la bonne, quoique lourde pour enabled sur des actions.
Mais je ne vois rien d'autre.
Problème clos, mous.
solilog

Non cantador, c'est parce que button .enabled := Assigned(form2) retourne toujours True si Form2 a été une fois une fois créée.

La réponse de f0xi est bonne, quoique lourde pour enabler des actions.
Mais je ne vois rien d'autre.
Problème clos, Tcho
solilog