Empêchr fermeture d'un TForm

Bonjour
Voilà mon problème est le suivant : j'ouvre une fiche TForm avec un ShowModal car les propriétés me conviennent mieux qu'un Show simple. Quand l'uttilisateur a validé, la fiche se ferme automatiquement.
Le hic est que je viens de rajouter un bouton sur ma fichie et je souhaiterais que lorsqu'on clique dessus, ça ne ferme pas ma fenêtre mais la laisse ouvert .. par contre pour tout le reste le comportement doit rester comme pour un showmodal classique.
Une idée?
Merci :wink:

Sur l'évènement OnClose des fiches, tu as accès à une variable Action du type TCloseAction.
A l'aide de cette variable, tu peux décidé de la méthode de réaction de ta fiche à se fermeture.

Citation:

---

caNone --> La fiche n'est pas autorisée à se fermer et rien ne se passe.
caHide --> La fiche n'est pas fermée, juste cachée. L'application peut toujours accéder à la fiche.
caFree --> La fiche est fermée et toute la mémoire allouée à la fiche est libérée.
caMinimize --> La fiche est réduite, pas fermée. C'est l'action par défaut pour les fiches enfant MDI.

---

Tu peux donc, par exemple, utiliser un booléen pour savoir si tu viens de cliquer ou pas sur le bouton qui ne doit pas produire la fermeture et mettre un code comme celui-là dans le OnClose de ta fiche:

Code:

---

1 2 3 4 5

if (fermeture) Action = caFree; else Action = caNone;

---

Salut !

Le plus simple est peut-être d'utiliser un TSpeedButton qui n'est pas doté
des mêmes mécanismes qu'un TButton.

A plus !

Oui voilà :D
Merci à vous deux pour les réponses !!
Là je me sens vraiment bête... Enfin j'ai l'excuse du vendredi !! :D
Encore merci :wink: