Discussion :

[petitcoucou31]

bonjour a tous ,

je suis sous W7 et XE.

j'ai besoin de changer le fonctionnement d'une application , ce changement consiste à insérer une fenêtre show-modale dans un panel de la form principale.

Sous sa forme primaire (avant insertion dans le panel) tout fonctionne bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function OuvreArretSurDefaut(Contener:Tpanel;lignedef:integer):integer;
begin
     result:=0;
     if assigned(FArretSurDefaut) then
     begin
         FArretSurDefaut.Free;
         FArretSurDefaut:=nil;
     end;
     FArretSurDefaut:=TFArretSurDefaut.create(application);
     Try
        FArretSurDefaut.Parent:=Contener;
        FArretSurDefaut.Height:=76;
        FArretSurDefaut.showmodal;
        result:=EtatSortie;
     Finally
         FArretSurDefaut.Free;
         FArretSurDefaut:=nil;
     end;
end;

Mon Soucis:
la fenêtre insérée est show-modale, car elle doit garder la main sur la fiche principale tant qu ont ne l a pas quitté.
Mais cette dernière perd aussi son focus et l 'application est quittée via un control+alt+sup .

Est ce normal , avez vous une idée ..?

merci pour vos réponses.

mon seul problème est de perdre le focus de la fenêtre insérée

[JustMe]

Je pense que c'est normal, Un showModal est utilisé pour qu'une forme se comporte comme une boite de dialogue.
La méthode ShowModal tend à désactiver toute autre forme jusqu'à sa fermeture donc dans ton cas désactiver la forme principale qui est le parent de ta forme modale ce qui va entrainer sa désactivation.
Donc tu ne lui met aucun Parent c'est plus simple.

[ShaiLeTroll]

Parent et Modale en même temps !
Il fallait oser !
Surtout qu'avec SetParent de la TForm, cela fait en sorte que le Focus reste au Parent
Utilise Windows.SetParent, avec le HWND, cela laissera le Focus à ta sous-fenêtre mais provoquera peut-être d'autres effets de bord (en particulier sur les DBControls qui utilise le Exit pour se mettre à jour et qui n'est pas forcément bien détecté entre fenêtre)

Tu peux très bien utiliser un Show normale mais verrouiller le reste de la fenêtre (en jouant sur des Panels ou GroupBox qui regroupent les contrôles que tu souhaites bloquer le temps de la sous-fenêtre)
Cela éviterait des DeadLock de ce genre

A mon avis, tu as un gros problème d'ergonomie, faudrait que tu repenses ton écran pour guider l'utilisateur mais pas le bloquer ainsi !

[petitcoucou31]

Merci les gars,

Je me doutai devenir un peu gourmand avec des fenêtres modales et leurs parents, surtout que j'avais déjà essayer sans succès , mais peut être que quelqu'un avait trouvé une astuce !! .

J'avais pensé aussi à la méthode consistant à désactiver tous les contrôles de la form1 et ne laisser que ceux de la form2 qui du coup n'aurai plus besoin d''être modale, mais c'est bien de son "modal" que j'ai besoin.

Mon besoin est le suivant.
Afficher une fiche (form2) avec n boutons de décision qui bloquera un séquenceur dans form1 et cela tant que fom2 est modale.

mes solutions:
1° Rester comme cela marche actuellement, pas d''imbrication de form2 dans form1.
2° Positionner simplement la form2 en couverture du panel de form1 , cela devrai aller tant que la fiche sera ni redimensionner, ni déplacer (visuel assez moyen)
3° La solution de ShaiLeTroll : Utiliser Windows.SetParent et le HWND, si je trouve des infos sur cela .. et surement vais je trouver mon bonheur ici ! .

En plus ce choix étant directement lié a un choix design et de temps de codage .. ça risque de tourner court.

Merci pour vos réponses qui affirment mes essais.

[petitcoucou31]

re salut,

La solution sera la 2.
la form2 étant sans bordure et la form1 n'ayant plus le focus, cela règle les problèmes liés au déplacement et redimensionnement de la form1 avec form2 dessus.
Cela ne pourra se refaire qu'une fois la form2 fermé.

bye.