Discussion :

[pitango]

Bonjour à tous,

Ma question est dans le titre, connaissez vous un moyen de positionner
la souris au milieu du bouton OK sur un showmessage.

Sur un bouton présent sur une fiche ,j'utilise la fonction

Code :

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

1
2
 
 Mouse.CursorPos := Bouton.ClientToScreen(Point(Bouton.Width div 2,Bouton.Height div 2));

mais je ne vois pas comment proceder sur le boutton d'un showmessage ou d'un messagedlg ?

Merci

-------------------------------------------------------------
Delphi 7.1 / SQL Server 7 & 2000 / Windows NT & 2000

[jula2i]

Salut Pitango...

Tu l'as surement constaté, mais un ShowMessage() ou un MessageDlg() s'affiche toujours au centre de l'écran (pas au centre de ton appli !).

Donc en gardant le même principe de ta fonction :

Code :

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

1
2
Mouse.CursorPos := Point( (Screen.Width div 2) + PosX, (Screen.Height div 2) + PosY );

Mais attention :

1 - Le(s) bouton(s) ne se situe pas exactement au centre de l'écran (c'est la boite de dialogue qui est centrée) donc il faut que tu ajuste la position avec "PosX" et "PosY" pour avoir le pointer de la sourie au centre du bouton voulu.

2 - Suivant la longueur du message à afficher ou le nombre de boutons (dans le cas d'un MessageDlg), les positions des boutons ne seront pas les mêmes !

3 - Si tu ne connais pas le contenu du message à afficher, il te serra très difficile de trouver la position exacte du bouton ( ou sinon avec une petite fonction de calcul selon la taille et le type de message! ).

Pour ma part, je ne vois pas d'autre moyen.
Bonne prog.

[Jipété]

un ShowMessage() ou un MessageDlg() s'affiche toujours au centre de l'écran

Méfiance ! Il y a des exemples sur le web qui montrent qu'on peut parfaitement faire afficher ce genre de dialogue un peu où l'on veut (en interceptant des messages) !
Mes 2 cts,
--
jp

[Sub0]

Tu peux simuler la validation du dialogue en avec la touche Entrée plutôt, ce sera plus simple :

Code :

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

1
2
3
SendMessage(0, WM_KEYDOWN, VK_RETURN, VK_RETURN); 
ou bien
SendMessage(0, WM_KEYUP, VK_RETURN, VK_RETURN);

[Barbibulle]

Pour information (peut etre ce que celà ne conviendra pas).
Dans le panneau de configuration / Souris / Options du pointeur il y a une case à cocher :

"Déplacer automatiquement le pointeur sur le bouton par défaut dans la boite de dialogue."


Bien entendu ce n'est pas une solution "Delphi" mais parfois on cherche une solution par programmation uniquement parce qu'on ne pensait pas qu'il y avait une autre possibilitée.

A+

[pitango]

Merci à tous pour vos réponses, je vais expérimenter vos différentes solutions.

Je vous tiens au courant.

A+

[WebPac]

J'ai une autre solution.
Sur tu as les sources des composants, tu récupères le code source du ShowMessage et tu intègres le code mis en premier message dedans.

Le code du ShowMessage n'est pas très compliqué.
J'ai fait ainsi pour personnaliser les MessageDlg.

[pitango]

Bonsoir,

Merci encore à tous pour votre aide.

Je vais dans un premier temps utiliser la solution de jula2i

Code :

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

1
2
3
 
 
Mouse.CursorPos := Point( (Screen.Width div 2) + PosX, (Screen.Height div 2) + PosY );

sachant que dans mon environnement cible les boites de dialogues s'afficheront bien au centre de l'écran

Dans un second temps je regarderai du coté des sources comme le préconise WebPac.

Pour la solution hors delphi de Barbibulle, je n'ai pas la possibilité de la mettre en oeuvre, mais je la garde de coté pour la proposer une autre fois.

Du coté de la touche entrée (sub 0), ce n'est pas exactement ce que je fais à faire , mais merci pour ton aide.

A+