Discussion :

[matech]

Bon voila j'ai tout simplement une fiche que je souhaite ouvrir en mode modale mais tout les documents présent sur le site (forum et faq) ne sont pas très clair je vois pas comment procéder

J'aimerais bien un exemple plus concret

(je commence juste avec Delphi alors un peu d'indulgence)

[SLE]

Code :

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

MaFenetre.ShowModal

[matech]

Je pense que je n'aurais pas posté ce message si c'était seulement ça
la structure que tu m'a fournit ne marche pas et c justement ça le problème

[Rayek]

Disons que tu as 2 forms : Form1 et Form2
Form1 va appeller Form2 en mode modale et que Form2 redonnera la main grace à deux boutons (valider et annuler)

Dans form1 tu as un bouton qui va appeller Form2

Code :

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

1
2
3
4
5
 
if Form2.ShowModal = mrOk then
  Showmessage('Ok')   // si le bouton Valider a été utilisé
else
  Showmessage('Annuler'); // si le bouton Annuler a été utilisé

Dans la form2 :

- Le bouton valider :

Code :

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

1
2
 
  ModalResult := mrOk;

- Le bouton annuler

Code :

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

1
2
 
ModalResult := mrCancel;

Modalresult va faire deux choses :

- Fermer automatiquement la fenètre
- Renvoyer MrOk ou mrCancel selon le bouton appuyé.

[matech]

Est-ce qu'il faut créer la fenêtre au préalable

Code :

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

Application.CreateForm(TMaFiche, MaFiche)

Ou alors la déclarer mais la cacher ou ...

[Rayek]

Est-ce qu'il faut créer la fenêtre au préalable

Code :

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

Application.CreateForm(TMaFiche, MaFiche)

Ou alors la déclarer mais la chacher ou ...

Si dans les options du projet ta fiche est dasn les fichies disponibles, il va falloir que tu la crées dynamiquement

Code :

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

1
2
3
4
5
6
7
8
9
10
 
MaFiche := TMafiche.Create(Self);
try
  if MaFiche.Showmodal = mrOk then
 ... 
...
...
finally
MaFiche.free;
end;

[Tardiff Jean-François]

Bonjour,

si la fenêtre est créer en automatique, se n'est pas la peinne de la recréer (voir les options de compilation de l'application).
Si elle n'est pas créer automatiquement vous devez la créer avant de l'utilisez.

En faite les condition d'utilisation de show et de showModal sont identique.

[Rayek]

En faite les condition d'utilisation de show et de showModal sont identique.

Faux, Show ne bloque pas l'accès a la fiche appelante contrairement à ShowModal, et Show ne retourne pas la valeur de ModalResult.

[matech]

merci
ça m'aide beaucoup
mais le prog me renvoie une erreur
impossible de rendre modale une fenêtre visible

[slimjoe]

merci
ça m'aide beaucoup
mais le prog me renvoie une erreur
impossible de rendre modale une fenêtre visible

Change la propriété Visible de ta fiche à false.
C'est une erreur commune (que j'ai fais souvent)

-Slimjoe

P.S.
Suggestion pour tes futures questions : si Delphi donne une erreur, cite-là d'emblée. Ça aide beaucoup à cerner le problème

[matech]

Merci bcp slimjoe

PS : ce n'étais pas cette erreur que j'avais au début

[devyan]

merci
ça m'aide beaucoup
mais le prog me renvoie une erreur
impossible de rendre modale une fenêtre visible

Change la propriété Visible de ta fiche à false.
C'est une erreur commune

-Slimjoe

P.S.
Suggestion pour tes futures questions : si Delphi donne une erreur, cite-là d'emblée. Ça aide beaucoup à cerner le problème

Effectivement, c'est un problème connu.

En fait, si la propriété Visible de ta TForm est à True, celle-ci est affichée automatiquement lors de la création.