Discussion :

[microbe83]

bonsoir,
serait'il possible d'avoir les coordonnées du pointeur de la souris passant sur une icône du bureau par exemple ?

( je sais avoir les coordonnées a l’intérieur d'une form mais pas a l’extérieur !)

et ensuite comment faire pour positionné le curseur a tel endroit de l'écran et simuler un clic souris ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::FormClick(TObject *Sender)
{
  AnsiString message = "(";
   message += IntToStr(Mouse->CursorPos.x);
   message += ",";
   message += IntToStr(Mouse->CursorPos.y);
   message += ")";
   ShowMessage(message);
}

code venant de ce topic :http://www.developpez.net/forums/d10...=clique+souris

j'arrive avec ce morceau de code a voir les coordonnées du pointeur mais tan que je ne sort pas de la form puisque je suis sur l’événement "onclick"



merci

[Crayon]

ensuite comment faire pour positionné le curseur a tel endroit de l'écran et simuler un clic souris ?i

Salut, pour cela tu peux utiliser SendInput.

[cedni]

Un memo et un timer

Code :

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

1
2
3
4
5
6
7
8
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Memo1->Clear();
POINT pos; //espace pour loger les coordonnées
GetCursorPos(&pos); //loge les coordonnées (x,y) de la position initiale de la souris
Memo1->Lines->Add(pos.x);
Memo1->Lines->Add(pos.y);
}

Code :

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

1
2
3
 
// Pour positionner le curseur apres un traitement
SetCursorPos(x,y);

Code :

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

1
2
3
4
5
 
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); 
// Appuie bouton gauche
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); 
// Relache bouton gauche

Code :

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

1
2
3
4
 
// ou bien avec la touche entrée qui ouvre aussi bien que les clics
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);

[blondelle]

Salut microbe83
Un code pour afficher la position du curseur sur l'ensemble de l'ecran, sur la Form deux TLabel un TTimer
le code

Code :

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
17
18
19
20
21
22
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
POINT P;
GetCursorPos(&P);
Label1->Caption = P.x;
Label2->Caption = P.y;
}

[blondelle]

Pour positionner le curseur aux coordonnees (X,Y) sur tout l'ecran
le code

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// SetCursorPos(X,Y);
SetCursorPos(50,50);
}

[microbe83]

merci a vous tous !!! super réactif


je vais testé tous ça !!

merci