Show en ShowModal

Bonsoir

Voila mon problème, j'affiche à un moment une fenetre avec un Show.
Puis dans certain cas, je veux la transformer en showmodal pour forcer l'utilisateur à effectuer une action.

Cependant, si j'essaye de faire un showmodal après le show, Delphi m'indique que ce n'est pas faisable car la fenetre est déjà visible.

Je peux donc la cacher et la reafficher avec le showmodal mais ca fait très moche.

Y a t'il une solution pour transformer la fenetre en modal ?

Bonjour,

Peut-être une solution :

• mettre tout les composants de la forme "standard" dans un panneau
• définir une forme modale quasi "vide" (juste les boutons de OK et CANCEL).
• suite au Create de la forme modale, on indique pour cette form taille et position identique à la forme "standard", ainsi que le panneau de la forme standard.
• au onActivate de la forme modale (qui sera exécuté par le showmodal), on transfère le panneau depuis la forme "standard" vers la forme modale.
• lors du retour de la forme modale, on retransfère le panneau à la forme "standard".

Pour ma part, je gérerais un boolean, et avec l'évenement OnDeactivate
j'essaierais de bloquer la perte de focus en fonction du boolean.
Pareil pour le OnClose.

C'est un peu de la bidouille, mais je ne vois pas mieux pour le moment.

Kwasin

Bonjour,

A mas connaissance transformer un show en showModal (ou inversement) est impossible, et il faut effectivement faire un close puis réouvrir avec le bon ordre.


Peut être pourriez vous tricher de cette manière.

Code:

---

1 2 3 4 5 6 7 8

LockWindowUpdate(Self.Handle); try Self .close; Self.ShowModal; finally LockWindowUpdate(0); end;

---

LockWindowUpdate permet de "figer" une fenêtre en l'empêchant de se repeindre. Si cela fonctionne comme prévus, vous devriez figer la fenêtre, la fermer, la réouvrir puis luis permettre de se repeindre (" LockWindowUpdate(0);")

Je ne garanti pas que cela fonctionne dans ce cas, car je n'ai pas tester le code.

Salut :)
Ce que tu veux faire n'est pas très Windows-friendly :aie:
Je pense qu'il faudrait un peu réfléchir à l'interface afin d'éviter ce problème.

Exemple:
Si lors d'une saisie, un paramètre devient indispensable, affiche une nouvelle Form qui ne peut se fermer QUE si ce paramètre est renseigné ;) C'est un exemple comme un autre mais transformer une fiche non-modale en modale n'est pas possible ou alors ça tiendrait vraiment du bricolage...

Citation:

---

Envoyé par dd16

Puis dans certain cas, je veux la transformer en showmodal pour forcer l'utilisateur à effectuer une action.

---

Explique-nous exactement dans quels cas la fiche devient modale.

moi j'utilise c bout de code, c'est la solution que propose kwasin :

Code:

---

1 2 3 4 5 6 7

procedure TForm2.FormDeactivate(Sender: TObject); begin if Form2.Visible then begin Beep; Form2.SetFocus; end; end;

---

Salut!

J'ai un peu de difficulté à comprendre...

Tu affiches une fiche avec Show (fsMDIChild ?) et soudainement, une fois affichée (l'utilisateur a déjà commencé à travailler dedans) tu veux la transformer en Showmodal (fsNormal ?) ?

Je ne peux qu'être d'accord avec Pedro :

Citation:

---

Envoyé par Pedro

Explique-nous exactement dans quels cas la fiche devient modale.

---

Salut!

Juste comme ça...
Et pourquoi est-ce que tu ne pourrais pas parfois l'afficher avec Show et d'autre fois l'afficher avec Showmodal dès le départ ?

C'est peut-être ça que tu veux au fond (et moi qui n'ai rien compris). Si c'est le cas, le truc est de laisser ta fiche en FormStyle := fsNormal et Visible := false par défaut et, si tu as besoin de faire un Show tu changes le FormStyle en fsMDIChild.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

//Ouverture en Showmodal() with TForm1.create(self) do try showmodal(); finally Release(); end;   //Ouverture en Show() with TForm1.Create(self) do begin FormStyle := fsMDIChild; Show(); end;

---