Discussion :

[Teddy]

Bonjour,

J'ai une fenêtre principale Form1, contenant un certain nombre de boutons.
En cliquant sur l'un des boutons, une fenêtre modale Form2 s'ouvre, et permet un certain nombre d'actions. Si l'action demandée rencontre une erreur, je le signale par un showmessage, et j'aimerais ensuite que la Form2 se ferme. Après le showmessage, j'ai donc mis Form2.closemodal. Mais rien ne se passe, la fenêtre est toujours visible.
Quelle erreur ai-je donc commise ?
Merci.

[tourlourou]

Bonsoir,

Il me semble que la fenêtre modale peut se fermer en affectant ModalResult, qui sera exploité ou pas par le programme appelant :

Code :

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

1
2
ShowMessage('Erreur de type Y');
ModalResult:=127;

[benymypony]

Un simple Close ne fonctionne pas ?

Beny

[Teddy]

Merci pour vos réponses.

@tourlourou:
Le modalresult ne fonctionne pas non plus.

@beny:
le form2.close ne marche pas non plus.

Mais je dois dire que l'action que je teste en défaut se produit dans l'évènement Onactivate de la feuille.
Peut-être qu'on ne peut pas fermer une feuille dans ce contexte (mais aucune exception n'est produite par Delphi).
Mais je n'ai pas le choix, parce que je dois tester la validité d'une liaison avec un port com à l'ouverture de la fenêtre (c'est d'ailleurs en débranchant cette liaison que je provoque volontairement l'erreur).

[Cl@udius]

Salut

... Après le showmessage, j'ai donc mis Form2.closemodal.

Comme l'a indiqué Tourlourou, pour fermer une fenêtre modale il suffit d'affecter à la propriété ModalResult une valeur différente de mrNone (<> 0).
C'est la méthode "académique".

A savoir que la méthode Close de TCustomForm se contente simplement d'affecter mrCancel à ModalResut.

Mais je dois dire que l'action que je teste en défaut se produit dans l'évènement Onactivate de la feuille.

C'est là où le bât blesse.
Si tu regardes l'implémentation de la méthode ShowModal de TCustomForm, tu constateras que ModalResult est initialisée à 0 (mrNone) juste après l'appel à Show.
Conclusion: toutes affectations d'une valeur à mrResult dans les événements OnShow ou OnActivate sont écrasées par ShowModal.

Puisque la méthode publique ShowModal est virtuelle, j'entrevois une solution qui consiste à réécrire la méthode (override) en déplaçant la ligne ModalResult := 0; juste avant l'appel à Show;.

C'est un peu lourd, mais si tu es contraint d'utiliser OnActivate je ne vois pas d'autre solution.
A moins que quelqu'un d'autre ai une idée plus simple.

@+ Claudius.

[tourlourou]

Est-il judicieux de demander à une fiche de s'afficher si elle ne doit pas s'ouvrir dans certaines conditions ?

Ne faudrait-il pas plutôt mettre le code de test dans une fonction pour savoir si on peut l'appeler par ShowModal ensuite ?

[Teddy]

Bonjour,

Merci pour ces précisions et suggestions.
En effet, mon code était mal ficelé.

Maintenant, je fais le test de la communication avant d'ouvrir la fenêtre.
En fait, comme le test prend quelque secondes, je voulais que l'utilisateur sache que la commande était bien prise en compte (en voyant la fenêtre affichée).
Mais le curseur en forme de roue suffit à indiquer qu'il se passe quelque chose.

[ShaiLeTroll]

Comme le souligne Claudius ShowModal est virtuelle et c'est justement pour pouvoir redéfinir dans une classe hérité son propre ShowModal !

Et effectivement, dans la méthode redéfinie, il faut faire le contrôle du contexte AVANT l'appel du inherited ShowModal.
Evidemment, ce contexte doit se limiter à des éléments d'affichage, une séparation modèle\traitement\présentation en extrapolant les propos de tourlourou pour anticiper et ne même pas créer la TForm est encore mieux !

Attention, l'utilisation OnActivate est une manière de procéder avec de très vieux Delphi où l'ordre des constructeurs (OldCreateOrder) était différent et posait des problèmes !
Maintenant, une exception (via Abort) dans le constructeur peut aussi être une solution pour empêcher l'affichage

Surtout qu'avec OnActivate, il faut soit gérer un boolean genre FirstActivate ou alors changer la valeur affectée à OnActivate soit par nil soit par un autre gestionnaire

J'ai récemment été confronté à ce problème où je ne pouvais pas anticiper le contexte (disponible après constructeur de la fenêtre) et j'ai du faire ceci

Code c++ :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//---------------------------------------------------------------------------
/*override*/int __fastcall TBiduleForm::ShowModal(void)
{
  TModalResult Result = mrNone;
 
  if (this->TrucOk && this->MachinOk)
  {
    Result = inherited::ShowModal();
  }
  else
  {
    Result = mrIgnore;
  }
 
  return Result;
}