Discussion :

[FredericB]

Bonjour,

J'ai créé une fenêtre dynamiquement, qui doit s'afficher dans un TPanel à travers un Notebook..
Ma fenêtre s'affiche bien, mais mon application gèle avec la commande ShowModal();.

Voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TFrm_Main::Label1Click(TObject *Sender)
{
     Notebook1->PageIndex = 1;
     TForm *pMyForm = new TForm(Panel1);
      pMyForm ->Parent = Panel1;
      pMyForm ->ShowModal();
     delete (pMyForm );
     Notebook1->PageIndex = 0;
}

Par contre si je met pMyForm->Show();, mon application n' est plus gelée, mais le reste du code est exécutée, et donc l'instruction delete (pMyForm) ferme ma fenêtre.

Donc ma question est :
Pourquoi ici ShowModal() ne marche pas ?
Y a t-il quelque chose que je n'ai pas compris ?
(Si par contre je ne met pas de parent à cette fenêtre, alors tout est OK.)
Ne peut-on pas utiliser ShowModal() dans un parent ?

Merci d'avance pour vos aides
Fred

[Neilos]

ShowModal "bloque" l'application entière tant que ta fenêtre n'est pas fermée.
cf. l'aide de C++ Builder.

A mon avis le problème est que tu veux afficher ta fenêtre dans une autre fenêtre qui elle sera gelée par l'appel à ShowModal.

[Gilles Louïse]

Le problème ne vient pas du fait que la fenêtre est dynamiquement créée mais que vous voulez une fenêtre modale insérée dans l'application même. En principe, cela ne se fait pas, une fenêtre modale est le plus souvent une fenêtre de paramètres, elle est libre ou flottante. Donc à mon avis, acceptez cette règle.

Si vous voulez malgré tout l'insérer dans l'application, ce sera à vous de programmer son caractère modale, je crois que c'est assez difficile.

Sinon, acceptez une fenêtre libre, imposez son affichage dans le Panel et mettez sa propriété BorderStyle à bsNone de manière à supprimer les bordures, ce qui aura pour effet d'interdire le déplacement de la fenêtre qui restera scotchée dans le Panel. Mais bien entendu, il faudra au moins un bouton pour sortir.

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
TForm* pMyForm;
TButton* B;
 
pMyForm=new TForm(Form1);
pMyForm->Left=Form1->Left+Panel1->Left+20;
pMyForm->Top=Form1->Top+Panel1->Top+40;
pMyForm->BorderStyle=bsNone;
pMyForm->Color=clAqua;
 
B=new TButton(pMyForm);
B->Parent=pMyForm;
B->Caption="Quitter";
B->ModalResult=mrOk;
 
pMyForm->ShowModal();
delete pMyForm;

À bientôt
Gilles

[FredericB]

Bonjour,

Merci pour vos réponses.

Frederic