Discussion :

[marsupilami34]

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

[MD Software]

Tu la mets où cette fonction close ?

[marsupilami34]

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

Code :

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

1
2
3
4
5
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  close;
end;

[MD Software]

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

[marsupilami34]

en modal

[MD Software]

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

Affecte une valeur à ModalResult. Par exemple :

Code :

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

1
2
3
4
procedure TForm2.Button2Click(Sender: TObject); 
begin 
  ModalResult := mrOk;
end;

[marsupilami34]

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

Affecte une valeur à ModalResult. Par exemple :

Code :

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

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

[MD Software]

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 ?

[marsupilami34]

voila

Code :

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

1
2
3
4
procedure TForm1.saisie();
begin
  Form2.show;
end;

[MD Software]

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.

[marsupilami34]

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.