Impossible de changer Visible dans OnHide ou OnShow

Bonjour,
Lorsque j'essaie de fermer mon logiciel avec la fonction close, le message d'erreur sivant s'affiche.

Imposible de changer Visible dans Onhide ou Onshow

D'ou ca peut venir ?
Merci d'avance

Tu la mets où cette fonction close ?

Je mets la fonction close dans la procedure d'activation d'un bouton

Code:

---

1 2 3 4 5

procedure TForm2.Button2Click(Sender: TObject); begin close; end;

---

Ta form2, elle est ouverte en modal, ou c'est la fenêtre principale ?

en modal

Dans ce cas, il ne faut pas que tu utilises close.

Affecte une valeur à ModalResult. Par exemple :

Code:

---

1 2 3 4

procedure TForm2.Button2Click(Sender: TObject); begin ModalResult := mrOk; end;

---

Citation:

---

Envoyé par MD Software

Dans ce cas, il ne faut pas que tu utilises close.

Affecte une valeur à ModalResult. Par exemple :

Code:

---

1 2 3 4

procedure TForm2.Button2Click(Sender: TObject); begin ModalResult := mrOk; end;

---

---

En faisant cela,ma fenêtre ne se ferme pas.
En fait je créé ma forme principale. Une fois cela, je fais appel à ma forme2 et que veux pouvoir fermer à tout moment

Si tu affiches ta form2 par ShowModal, il n'y a pas de raison que mon code ne marche pas. Si tu n'utilises pas ShowModal, ton affichage ne sera pas modal.

Est-ce que tu peux nous montrer le code qui affiche la form2 ?

voila

Code:

---

1 2 3 4

procedure TForm1.saisie(); begin Form2.show; end;

---

Donc, ce n'est pas en modal.

Le Close devrait marcher sur le bouton. Si ça marche pas, c'est que tu as du code dans l'évènement onHide de ta form 2, ou dans le onActivate ou onShow de ta form principale. Ces codes doivent poser problème.

En fait ma forme principale s'activé par un OnActivate.
J'ai changé cela en remplacant tout le contenu de ma procedure OnActivate dans une procedure de ButoonClick et maintenant ce marche.