/763d42402c1d4f1cbb864d5fd37c2f5f/auth-avatar/7253ca954a22deeee1737955a079a786-jlmcom)
Comment tester si une fenêtre existe? [Résolu]
jlmcom
- Messages postés
- 57
- Date d'inscription
- mercredi 4 août 2004
- Dernière intervention
- 3 décembre 2004
- Messages postés
- 1237
- Date d'inscription
- samedi 8 novembre 2003
- Dernière intervention
- 3 septembre 2006
A voir également:
- Delphi tester
- Delphi findwindow - Meilleures réponses
- Delphi / Pascal : Tester la validité d'un e-mail - CodeS SourceS - Guide
- Delphi / Pascal : Test de collision 2d entre rect,cercle,point - CodeS SourceS - Guide
- Delphi / Pascal : Test de collision entre 2 rectangles - CodeS SourceS - Guide
- Delphi / Pascal : Tester la syntaxe arithmetique (turbo pascal) - CodeS SourceS - Guide
- Delphi / Pascal : Factorisation et test de primalité 32 bits ultra optimisé - CodeS So - Guide
6 réponses
Meilleure réponse
- Messages postés
- 1529
- Date d'inscription
- samedi 12 juin 2004
- Dernière intervention
- 5 juillet 2010
Tu peux effectivement tester par le Handle...
Si la fenêtre existe, son handle sera différent de 0, donc :
@+
Bonne Prog'
Nico
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! :)
Si la fenêtre existe, son handle sera différent de 0, donc :
procedure TestFenetreExiste;
var
H : THandle;
begin
H := FindWindow(nil,'Nom de la fenêtre');
if H = 0 then ShowMessage('Existe pas')
else ShowMessage('Existe');
end;
@+
Bonne Prog'
Nico
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! :)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
/9a9a151f459d4fa2b0a79f31ec32091f/auth-avatar/a7ab2a34eba0f9a1d41bc1e0a1d84def-cs_grandvizir)
- Messages postés
- 1237
- Date d'inscription
- samedi 8 novembre 2003
- Dernière intervention
- 3 septembre 2006
Dote-toi de Spy++... c'est très utile. Ou de WinSpector, mais chez moi, il rame terriblement.
Je suis pas sûr. Essayons ça, tu me diras:
Pour créer les fenêtres, ouvre le fichier DPR.
===========
Validez les réponses si ok...
ViewVite : HTML - ZIP
Je suis pas sûr. Essayons ça, tu me diras:
if LaTFormATester=nil then ShowMessage('Non active')
else ShowMessage('En mémoire');
Pour créer les fenêtres, ouvre le fichier DPR.
===========
Validez les réponses si ok...
ViewVite : HTML - ZIP
merci ni69
Après test rapide de ta solution, quelque chose m'échappe. en effet, si je teste H en pas à pas, la valeur est nulle alors que la fenêtre est créee.
Par contre, lorsque sur l'instruction suivante (création de la deuxième fenêtre) je teste H, elle n'est plus nulle, alors que je souhaiterai qu'elle soit nulle pour la création de la deuxième fenêtre.
H := FindWindow(nil,'Nom fiche 1');
If H = 0 then Création fiche 1 else MemH :=True;
H := FindWindow(nil,'Nom fiche 2');
If MemH and H = 0 then Création fiche 2
J'inclut cela dans une boucle repeat until fin traitement, qui teste la fin des opérations sur les fiches. peut-être faut-il que je déclare des variables booléennes globales qui seront mises à 1 lors de la fermeture de chaque fenêtre! car MemH=true alors que le traitement de la fiche n'est pas commencé.
Qu'en pensez-vous? Qu'elles sont les règles de l'art en la matière, je n'avais jamais à gérer ce problème...
Delphi, delphi quand je te tiens! Merci d'avance, si vous avez une solution.
jlmcom :)
Après test rapide de ta solution, quelque chose m'échappe. en effet, si je teste H en pas à pas, la valeur est nulle alors que la fenêtre est créee.
Par contre, lorsque sur l'instruction suivante (création de la deuxième fenêtre) je teste H, elle n'est plus nulle, alors que je souhaiterai qu'elle soit nulle pour la création de la deuxième fenêtre.
H := FindWindow(nil,'Nom fiche 1');
If H = 0 then Création fiche 1 else MemH :=True;
H := FindWindow(nil,'Nom fiche 2');
If MemH and H = 0 then Création fiche 2
J'inclut cela dans une boucle repeat until fin traitement, qui teste la fin des opérations sur les fiches. peut-être faut-il que je déclare des variables booléennes globales qui seront mises à 1 lors de la fermeture de chaque fenêtre! car MemH=true alors que le traitement de la fiche n'est pas commencé.
Qu'en pensez-vous? Qu'elles sont les règles de l'art en la matière, je n'avais jamais à gérer ce problème...
Delphi, delphi quand je te tiens! Merci d'avance, si vous avez une solution.
jlmcom :)
- Messages postés
- 57
- Date d'inscription
- mercredi 4 août 2004
- Dernière intervention
- 3 décembre 2004
Bonjour grandVisir
Excuse moi, il y a des bizareries dans ma cambrousse en ce moment et ton message n'apparazissait pas à l'écran.
Je viens d'en prendre connaissance.
1. Bon, pour Winspector et spy++, je ne sais pas ce que c'est. Peux-tu m'en dire plus! Il me semble que winspetor permet de suivre à la trace tout ce que gère windows à la trace, c'est cela?
Où le trouve t-on?
2. Oui, l'instruction fonctionne, mais il semble que j'ai un autre problème, car la fiche est déjà créée avant même que j'en donne l'ordre. Pourtant, elle n'est pas en autocrée dans le projet.
Merci pour vos lumières! Dès que j'ai une idée qui marche je vous en fait part.
jlmcom :)
Excuse moi, il y a des bizareries dans ma cambrousse en ce moment et ton message n'apparazissait pas à l'écran.
Je viens d'en prendre connaissance.
1. Bon, pour Winspector et spy++, je ne sais pas ce que c'est. Peux-tu m'en dire plus! Il me semble que winspetor permet de suivre à la trace tout ce que gère windows à la trace, c'est cela?
Où le trouve t-on?
2. Oui, l'instruction fonctionne, mais il semble que j'ai un autre problème, car la fiche est déjà créée avant même que j'en donne l'ordre. Pourtant, elle n'est pas en autocrée dans le projet.
Il faut donc que je réétudie la procédure de création de la fiche principale qui est assez complexe. Il y a peut-être un ordre de création qui trazine dans une procédure.
Merci pour vos lumières! Dès que j'ai une idée qui marche je vous en fait part.
jlmcom :)
- Messages postés
- 57
- Date d'inscription
- mercredi 4 août 2004
- Dernière intervention
- 3 décembre 2004
Bonjour,
Voici la solution que j'ai retenu pour l'instant. Je ne la trouve pas satisfaisante, j'aurai préférer me passer de Flag à gérer, mais c'est ce que j'ai trouvé. Si vous avez mieux n'hésitez pas !
Deux booléens de vérification des opérations ayant eu lieu sur les fiches sont mis à false dans Create de la Fiche principale et mis à true dans la fermeture des fiches en question..
jlmcom :)
Voici la solution que j'ai retenu pour l'instant. Je ne la trouve pas satisfaisante, j'aurai préférer me passer de Flag à gérer, mais c'est ce que j'ai trouvé. Si vous avez mieux n'hésitez pas !
Deux booléens de vérification des opérations ayant eu lieu sur les fiches sont mis à false dans Create de la Fiche principale et mis à true dans la fermeture des fiches en question..
If not Traitefiche1 and (Tform1<>nil) then (Tform1.Create(Application).show else if not Traitefiche2 and (Tform2<>nil) then (Tform2.Create(Application).show
jlmcom :)
- Messages postés
- 1237
- Date d'inscription
- samedi 8 novembre 2003
- Dernière intervention
- 3 septembre 2006
Si tu n'as pas vraiment la réponse, décoche Ni69. Ca remettra en blanc la question. Une question verte non résolue n'a pas d'avenir.
Je fais comme si tu n'avais pas posté le message précédent:
==============
J'ai eu Spy++ avec le pack VisualC++ 6 IE. WinSpector se trouve sur le site .com du même nom. Ca permet de trouver les handles et les classes, de suivre des messages, trouver des styles, d'avoir une idée sur le langage qui a programmé l'application que l'on scrute... etc. Mon choix est Spy++, mais il y aura tjs des avis contraires. De toute façon, les deux sont très utiles et suffisants.
Sinon, essaye encore un truc. Si ça marche pas, essaye avec 0, mais ça m'étonnerait.
[code]if LaTFormeATester.Handle=-1 then PasCréée else Créée;[code]
Essaye de nous donner le code entier de ton prog, épurés des codes inutiles sans se tromper. Car c'est vraiment étrange. Une fenêtre ne se crée pas par miracle.
Un .Hide ne détruit pas une fenêtre. Tjs bon à préciser :)
===========
Validez les réponses si ok...
ViewVite : HTML - ZIP
Je fais comme si tu n'avais pas posté le message précédent:
==============
J'ai eu Spy++ avec le pack VisualC++ 6 IE. WinSpector se trouve sur le site .com du même nom. Ca permet de trouver les handles et les classes, de suivre des messages, trouver des styles, d'avoir une idée sur le langage qui a programmé l'application que l'on scrute... etc. Mon choix est Spy++, mais il y aura tjs des avis contraires. De toute façon, les deux sont très utiles et suffisants.
Sinon, essaye encore un truc. Si ça marche pas, essaye avec 0, mais ça m'étonnerait.
[code]if LaTFormeATester.Handle=-1 then PasCréée else Créée;[code]
Essaye de nous donner le code entier de ton prog, épurés des codes inutiles sans se tromper. Car c'est vraiment étrange. Une fenêtre ne se crée pas par miracle.
Un .Hide ne détruit pas une fenêtre. Tjs bon à préciser :)
===========
Validez les réponses si ok...
ViewVite : HTML - ZIP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.