DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 26 déc. 2004 à 13:43
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;