Bruto
Messages postés214Date d'inscriptionjeudi 21 mars 2002StatutMembreDernière intervention14 mai 2004
-
13 sept. 2002 à 16:24
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 2006
-
13 sept. 2002 à 23:32
Salut,
je voudrais faire apparître ma form "A propos" comme une feuille modal.
Pour cela je dois utiliser la méthode ShowModal de cette form.
Si je fais ça sans faire Application.CreateForm(TForm_Propos, Form_Propos);
ça marche pas mais le prob avec ça c'est que la feuille s'affiche dès le démarrage.
Alors je l'ai mise en Visible = false au démarrage puis à true pour la faire apparaître. Tout ça ça marche mais je voudrais que mon app s'arrête jusqu'au moment où on quitte ma form "A propos" puis continue.
En bref si vous pouvez m'éclaircir sur ShowModal
Merci d'avance
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 13 sept. 2002 à 23:32
J'avoue, que j'ai un peu de mal à cerner la question...
ShowModal affiche la form demandée et bloque l'exécution du programme tant qu'elle n'est pas fermée.
Reste alors à savoir ce que tu veux faire pour savoir ou placer le ShowModal.
Si tu veux que ton "A propos" s'affiche au démarrage de l'application après que la fenêtre principale soit créée et affichée, il faut placer le ShowModal dans le OnActivate de la fiche principale. Mais cet évènement peut ce produire plusieurs fois dans l'exécution. Donc il faut faire un test pour ne le faire qu'une fois :
procedure TForm1.FormActivate(Sender: TObject);
begin
If Form2.Tag<>0 Then Exit;
Form2.Tag:=1;
Form2.ShowModal;
end;
( Form1=fenêtre principale Form2=A propos )