Le curseur [Résolu]

Signaler
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
-
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
comen faire pour que le curseur ce mette a tel ou tel endroit (par exemple sur le bouton, le memo)

merci d'avance !

---------------------
Jack NUMBER
---------------------

2 réponses

Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

exemple

je clique sur le button1 le curseur va sur le button2
var
TP1,TP2:TPoint;
x,y:integer;
begin
     TP1:=clienttoscreen(button2.BoundsRect.TopLeft);
     TP2:=clienttoscreen(button2.BoundsRect.BottomRight);
     x:=(TP1.x+TP2.x) div 2;
     y:=(TP1.y+TP2.y) div 2;
     SetCursorPos(x,y);
end;


DrJerome
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Salut

SetCursorPos



DrJerome