Discussion :

[dd16]

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 ?

[Graffito]

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".

[Louis Griffont]

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

[Tardiff Jean-François]

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 :

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

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.

[Pedro]

Salut
Ce que tu veux faire n'est pas très Windows-friendly
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...

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.

[denokan]

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

Code :

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

1
2
3
4
5
6
7
procedure TForm2.FormDeactivate(Sender: TObject);
begin
  if Form2.Visible then begin
    Beep;
    Form2.SetFocus;
  end;
end;

[slimjoe]

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 :

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

[slimjoe]

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 :

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

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;