Discussion :

[care]

Bonjour

voila je voudrais une fois mon programme lancer lui faire déplacé la sourie a un endroit precit sur l'écran. je penssé utilisé

Code :

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

MouseMove( ,X,Y);

mais je ne voit pas se qu'il faut mettre dans le premier paramétre.

et une fois arrivé a cette endroit simuler une clic gauche de la souris grace à

Code :

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

VK_LBUTTON

merci d'avance

[liazidf]

la Réponse se trouve dans l'aide de delphi, mais je sais pas si cette fonction déplace la souris.

Code :

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

1
2
 
MouseMove(ssLeft,x,y);

[care]

^^ heuuuu c pas ca mais j'ai regardé quand même avant dans l'aide delphi ...

bref ca ne fonctionne par le compilateur m'affiche une erreur

type incompatible 'tshifstate'et 'enumeration'

[care]

il me semble avoir trouver un ptit truc

Code :

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

MouseMove(KeysToShiftState(SS_LEFT),320,350);

[liazidf]

Excusez moi, j'ai oulier les crochets

Code :

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

1
2
 
MousMove([ssLeft],x,y);

[care]

arf normlement quand je fait un clic gauche ma souris doit aller directemetn sur l'endroit que j'ai definit avec mon Xet Y non ??
car la ca ne le fait pas

[LadyWasky]

Le mieux, c'est d'utiliser cette fonction :

Code :

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

SetCursorPos(100,100);

Simple, efficace, fonctionnel (alors qu'avec MouseMove,c'est pas gagné )....

La seule chose, c'est que SetCursorPos prend les coordonnées "écran" en paramètre.

Si tu veux déplacer ta souris dans une fiche, ou un bouton, il te faudra convertir les coordonnées "Fiche" ou "Bouton" en coordonnées "écran".

Celà se fait très simplement grace à la méthode ClientToScreen() des contrôle Delphi :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var UnPoint:TPoint;
begin
  //coordonnées de la fiche où on souhaite positionner la souris
  UnPoint:=Point(10,10);
  //Changement de coordonnée Fiche-->Ecran
  UnPoint:=Form1.ClientToScreen(UnPoint);
  //Positionnement du curseur de souris sur l'écran
  SetCursorPos(UnPoint.X,UnPoint.Y);
end;

[care]

Merci sa fonctionne mais j'ai rajouter ca pour que une fois arrivé a cette endrois on simulle un clic de souris

mais sa ne clic pas

Code :

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

1
2
3
SetCursorPos(1009,10);
keybd_event(VK_LBUTTON,0,1,0); //touche enfoncé
keybd_event(VK_LBUTTON,0,2,0); //touche relevé

[LadyWasky]

Prend l'unité UnitSystem dans mon projet du Défi n°1 (téléchargeable dans la fiche du défi)

[ero-sennin]

J'ai retrouvé l'info dans l'unité UnitSystem de Waskol :

Voici un petit code fonctionnel :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('OK');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
UnPoint: TPoint;
begin
UnPoint:=Point(220,120);
UnPoint:=Form1.ClientToScreen(UnPoint);
SetCursorPos(UnPoint.X,UnPoint.Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

[care]

c bon ca marche merci beaucoup a tous