Discussion :

[bvsud]

Bonjour à tous .

J'ai -encore- besoin d'aide sur une instruction ShoModal. Ca ne rentre pas, ce truc. Il y a une fenêtre modale qui fonctionne très bien ds mon prog, mais c'est la seule.

J'ai cette réponse :

à chaque fois !!!

Je voudrais un moyen sûr, garanti, d'effectuer un appel à showmodal : j'en suis réduit à utiliser GExperts à chaque fois que je veux poser une question ou afficher un msg !!

Vous voulez des informations sur qqch ? Je réponds.

Merci

P.S.:

Ds la prodédure de la Form qui appelle, j'ai ceci :

Code :

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

1
2
 
      Retour := Form2.ShowModal;

ds la Form appelée, à l'événement OnShow, j'ai ça :

Code :

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

1
2
3
4
5
6
 
Procedure Pilote_Question_Casse;
begin
        Touche := 0;
        Form2.Btn_Non.SetFocus; 
end;

[dehorter olivier]

??

pour un appel a une forme Modal, j'utilise systématiquement cette syntaxe

Code pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
     TRY
        IF Application.FindComponent('fOptions') = NIL THEN
        BEGIN
            fOptions := TfOptions.Create(Application);
            fOptions.ShowModal;
        END
        ELSE
        BEGIN
            fOptions.BringToFront;  // en fait pas utile puisque Modal
        END;
     FINALLY
        fOptions.Free;
     END;

[bvsud]

??

pour un appel a une forme Modal, j'utilise systématiquement cette syntaxe

Code pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
     TRY
        IF Application.FindComponent('fOptions') = NIL THEN
        BEGIN
            fOptions := TfOptions.Create(Application);
            fOptions.ShowModal;
        END
        ELSE
        BEGIN
            fOptions.BringToFront;  // en fait pas utile puisque Modal
        END;
     FINALLY
        fOptions.Free;
     END;

Super !! Merci Je vais tester ça.

[bvsud]

[QUOTE=dehorter olivier;6067177]??

C'est quoi, ce type fOptions ? On le déclare comment : ce n'est pas une TForm on dirait.

Il faut mettre qqch ds les Uses ?

[dehorter olivier]

c'est le nom de ma forme, toi c'est 'Form2' la mienne s'appelle 'fOptions'

[bvsud]

Merci Olivier

[seabs]

Bonjour,

Afin d'ajouter une variante à ta demande, lorsque je veux utiliser une TFORM en ShowModal, je procède ainsi :

Code :

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

1
2
3
4
5
6
7
8
 with TForm2.Create(Application) do
  begin
     try
       ShowModal
     finally
       Release;
    end;
  end;

Il me semble que j'ai pris cette méthode dans le livre de Paul TOTH sur Delphi 7. Depuis, je ne m'en suis jamais séparée.

Bon courage