TForm et Close()

Salut à tous,

Quand je crée ma Form principale, je fais un ShowModal () sur une seconde, comme une demande de login. Si jamais le login ne correspond pas je veux fermer la form principale.

Le truc c'est que la méthode Close() dans le constructeur de la form principale ne passe pas, elle ne fait rien.

Comment est-ce que je pourrais la fermer, ou alors l'empecher de s'ouvrir ?

Merci
++

Vous ne pouvez pas invoquer Form2 dans la constructeur de Form1 car Form2 n'existe pas encore au moment de ce constructeur, il est préférable d'utiliser l'événement OnShow de Form1 qui se produit juste avant l'affichage mais tous les composants sont créés.

Code:

---

1 2 3 4

void __fastcall TForm1::FormShow(TObject *Sender) { Form2->ShowModal(); }

---

Dans Form2, il suffira d'écrire Form1->Close(); pour fermer l'application.

À bientôt
Gilles

En fait la Form2 n'est pas créée automatiquement mais c'est moi qui l'a crée dans le constructeur de la form principale

Code:

---

1 2 3 4 5 6

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TForm2 *Form2 = new TForm2(Form1); int a = Form2->ShowModal(); }

---

J'ai essayé de fermer la Form1 par l'attribut Owner de la Form2 mais ca ne marche pas, peut être parce que la Form1 n'est pas encore "totalement" créée (on est ici dans son constructeur).

Salut !

Sinon tu peux aussi essayer :

Code:

---

Application->Terminate();

---

L'application se termine dès que tous les messages auront été traités jusqu'au traitement
du WM_QUIT, ce qui peut se traduire par un petite inertie, dans le sens ou Form1 pourrait
apparaître puis disparaître. A tester !

A plus !

C'est vrai henderson, Application->Terminate fonctionne dans le constructeur de la forme principale mais pas Close() qui ne fait rien, en revanche Close() fonctionne dans le OnShow ainsi que je l'avais proposé.

À bientôt
Gilles

Toutes mes excuses Gilles :oops: j'avais pas vu que vous proposiez dans le OnShow ()

La ca marche parfaitement.

Merci beaucoup