Problème avec création de fenêtre dynamique

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:

---

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

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.

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:

---

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

Bonjour,

Merci pour vos réponses.

Frederic