Discussion :

[isachat666]

Bonjour,

Je vous explique mon pb.
J'ouvre une fiche (Fiche1) en showmodal. dans le onshow de cette fiche, j'ouvre une autre fiche (Fiche2) en showmodal.
Je voudrais que quand on clique sur annuler de Fiche2, cela annule/ferme aussi Fiche1 mais impossible, je ne trouve pas de moyen d'y arriver.

Suite à un autre post sur un sujet similaire, j'ai essayé de fermer ma fiche dans le activate, cela ferme bien la fiche mais le prog reste bloqué car en suivant le point d'arrêt il va dans le formshow, ensuite dans le activate, ensuite il revient dans le TCustomForm.ShowModal après le show. Donc le modalresult est remis à 0 et il attend un évènement qui ne viendra jamais car la fiche est fermée...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Show;
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0;
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;

planchez bien la-dessus pendant le week-end ;-)
et sur ce, Joyeux Noël

Isa

[slimjoe]

Bonjour,

Je vous explique mon pb.
J'ouvre une fiche (Fiche1) en showmodal. dans le onshow de cette fiche, j'ouvre une autre fiche (Fiche2) en showmodal.
Je voudrais que quand on clique sur annuler de Fiche2, cela annule/ferme aussi Fiche1 mais impossible, je ne trouve pas de moyen d'y arriver.

Code :

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

1
2
3
4
5
procedure TForm1.FormShow(Sender: TObject);
begin
  if Form2.Showmodal = mrCancel then
    self.Close;
end;

[Droïde Système7]

Bonjour,

Isa, si ta fiche 1 est ta Form principale, un simple :

Code :

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

Application.Terminate;

Sut ton bouton Annuler doit suffire.

Mais je ne dois pas avoir tout saisi

[Yurck]

La réponse de Slimjoe semble correcte.
C'est l'idée d'isa qui me paraît être d'une autre galaxie !

Joyeuse Pâques !

[isachat666]

oui l'idée de Slimjoe est tout à fait correcte, cependant si la solution était si simple que cela je n'aurais pas besoin de vos lumières
La fiche étant affichée en modal le close ne fait que mettre le modalresult à mrcancel sans fermer la fiche, ensuite l'exécution du onshow se poursuit et je suis de retour à la case départ (le modalresult est remis à zéro et ma fiche est toujours affichée...)
Mon idée n'est pas d'une autre galaxie, c'est la façon dont le programme a été conçu qui vient d'ailleurs............. et je dois juste m'adapter, mais pour ce point là je ne trouve pas de solution. Evidemment si je fais un show au lieu d'un showmodal ça fonctionne mais la fenêtre ne se comporte plus du tout comme je le souhaite pour les autres actions....
Isa

[Linkin]

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormShow(Sender: TObject);
begin
  if Form2.Showmodal = mrCancel then
    ModalResult := mrCancel; // Mettre le résultat que l'on veut (None etc ...)
end;

[isachat666]

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormShow(Sender: TObject);
begin
  if Form2.Showmodal = mrCancel then
    ModalResult := mrCancel; // Mettre le résultat que l'on veut (None etc ...)
end;

J'avais bien compris merci
mais ce que j'explique c'est que cela ne fonctionne pas dans mon cas. Quelle que soit la valeur qu'on affecte à modalresult, le modalresult est remis à zéro dans le TCustomForm.ShowModal ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
.../...
  try
    Show; //mon FormShow s'exécute modalresult = mrcancel tout est ok
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0; //retour à la case départ et la fiche n'est pas fermée...
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);
      .../...

c plus clair comme ça ?
Isa

[slimjoe]

Salut!

Je n'ai probablement pas bien compris le problème alors j'ai une question :

J'ouvre une fiche (Fiche1) en showmodal. dans le onshow de cette fiche, j'ouvre une autre fiche (Fiche2) en showmodal.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  try
    Show; //mon FormShow s'exécute modalresult = mrcancel tout est ok
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0; //retour à la case départ et la fiche n'est pas fermée...
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);

Où est le ShowModal ?

Je me trompe peut-être (et ça ne serait pas la 1ère foi ) mais je crois que tu ne pourras pas utiliser le ModalResult si la fiche n'est pas modale (Show ce n'est pas ShowModal).

[Linkin]

Ce code est le code de la VCL pour ShowModal.