cs_MicFor
Messages postés21Date d'inscriptionjeudi 22 mai 2003StatutMembreDernière intervention 8 octobre 2007
-
3 févr. 2006 à 10:37
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
3 févr. 2006 à 15:51
Bonjour
Je dois modifier une source et je butte sur un problème. Une fenêtre
est activée avec la fonction Form.ShowModal, un traitement y est donc
lancé et l'on doit cliquer sur un bouton pour sortir et revenir à la
fenêtre principal. Ici tout fonctionne correctement.
Je souhaite obtenir une seconde alternative de sortie en créant une
temporisation. Une fois le traitement réalisé, au bout d'une période de
x seconde, je voudrais fermer automatiquement la fenêtre modale et
revenir sur la fiche principal sans avoir à cliquer sur un bouton et
sans intervention de l'utilisateur.
J'ai essayé de passer par une fenêtre non Modale mais le source est
trop complexe et je souhaite une solution plus simple comme une
simulation d'un clic sur le bouton ou autre
Avec mes remerciements pour une éventuelle suggestion.
cs_MicFor
Messages postés21Date d'inscriptionjeudi 22 mai 2003StatutMembreDernière intervention 8 octobre 2007 3 févr. 2006 à 15:19
Merci à vous mais je bataille encore. Comme je l'ai dis plus haut, avec
un bouton et l'instruction close --> aucun problème mais je voudrais
fermer cette Form sans passer par un bouton, je veux placer une tempo
et sortir de la form à la fin de cette tempo.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 3 févr. 2006 à 15:36
dans ce cas tu mets un Timer dans la Form Modal que tu active au moment ou elle devient visible (évenement OnShow de la Form) et dans l'évenement OnTimer tu met Close
plus clairement
après avoir mis le Timer sur la Form tu cliques dessus et dans l'inspecteur d'objet tu mets Enable à False et interval à 10000 pour 10 secondes par Ex. En suite dans l'onglet évenements de l'inspecteur d'objet tu double cliques sur OnTimer et la dans le code généré tu écris :
Timer1.Enabled := False;
Close;
en suite tu cliques sur la form et dans l'inspecteur d'object onglet évenements tu double cliques sur OnShow et dans le code généré tu écris :
Timer1.Enabled := True;