Discussion :

[eponette]

J'ai une fenêtre qui, lors de son OnShow, ouvre une autre fenêtre qui demande un paramètre. Si l'utilisateur click sur le bouton 'Cancel', j'aimerais fermer la première fenêtre avec qu'elle ne s'affiche. Or le Self.Close et le 'Self.modalresult := mrCancel' ne fonctionnent pas.

Merci D'avance

[TicTacToe]

Je dis peut-être une connerie, c'est a vérifier,
mais ne peux-tu pas décaler ton messages dans le OnActivate de ta forme, pour que le close fonctionne ?

[eponette]

Si je mets cela dans le OnActivate, ma prenière fenêtre s'affiche. Et cela je ne le veux pas...

Puis le close ne fonctionne pas non plus dans le Onactivate....

[bjl]

Bonjour,

Y a t'il une raison pour ne pas ouvrir la fenêtre demandant le paramêtre en premier en showmodal et n'ouvrir l'autre fenêtre que si le modalresult est mrOk ?

[TMuet]

La bonne procédure consiste à utiliser une méthode asynchrone pour fermer la fiche.

Par exemple avec un timer qui serait activé dans le OnShow et qui ferait le Close dans sa méthode OnTimer.

[eponette]

La bonne procédure consiste à utiliser une méthode asynchrone pour fermer la fiche.

Par exemple avec un timer qui serait activé dans le OnShow et qui ferait le Close dans sa méthode OnTimer.

Je ne te suis pas tout à fait.

Peux-tu agrémenter cela d'un exemple?

Merci

[Nono40]

Non.

La bonne méthode est celle de bjl : demander le paramètre avant d'ouvrir la fiche. Si Cancel=> pas d'affichage.

[TicTacToe]

Je suis d'accord avec Nono
C'est la bonne méthode, je dirai même plus, s'il faut systématiquement poser la question et que la fenêtre est appelée depuis 15000 endroits, c'est encapsuler la fonction d'ouverture de la form dans une fonction publique hors classe. (ce qui permet d'ailleurs aussi, de l'allouer et dé-allouer au vol, c mieux...)

[eponette]

Mais si cette fenêtre est demandée par deux parties totallement différentes du programme, il faut mettre deux fois l'appelle à la fenêtre de paramètre. Dans le OnShow (ou autre), c'est inclu dans ma fenêtre...

[Tardiff Jean-François]

Bonjour,

TMuet a raison.
Je develope.

Certains évenement Oncreate, onShow bloque des actions Free, Close.

Par exemple pour fair un close vous devez avoir une fenêtre ouverte.
sur un OnShow la fenêtre n'est pas ouverte et elle est dans un état intérmédiaire.

Par contre si vous mettez un TTImer.
Enabled := False;
L'evenement fait le close pares avoir mis le timer à false.
Le temps est de quelques millisecondes.

Si dans le onshow vous voulez fermer la fenêtre vous devez.
1° Mettre le timer a enabled := true
2° Fair un exit

Ce qui se passe:
La procedure onShow se finit . La fenêtre est ouverte
Le timer se declenche.
Il se mest en enabled := false pour ne pas boucler.
Il ferme la fenêtre

[TicTacToe]

Unit xxx;

type TMaForm = class( TForm )
...
end;

procedure Ouvrir;
begin
if Question = OK
then MaForm.Visible := True;
end;

procedure TMaForm.Show( sender )
begin
// RIEN A GERER
end;


ETANT donné que la form est déjà allouée, et que la proc. OUvrir est dans l'interface...

[eponette]

J'aime cette idée, mais comment déclencher le Ouvrir pour une fenêtre modale?

[TicTacToe]

function Ouvrir: Boolean;
begin
Result := False;
if Question = OK
then Result := MaForm.ShowModal = mrOK;
end;

[eponette]

Donc pour l'appeller, je fait un create puis un from.Ouvrir à la place d'un forum.showmodal. C'est ça?

Je test.

Merci