Neftali [Germán.Estévez]
30-06-2006, 11:38:19
Posicionarlo en un lugar de la pantalla es facil, podemos hacerlo de la siguiente forma.
SetCursorPos(x,y)
Pero al ser x e y, las coordenadas en relación a la pantalla completa, no solo al area cliente, habrá que convertir a la posición relativa, añadiéndole la diferencia entre el 0,0 de la pantalla y la posición del form.
Otra opción es utilizar la función de Delphi ClientToScreen:
var
pt:TPoint;
begin
pt.X := 30;
pt.Y := 30;
SetCursorPos(ClientToScreen(pt).x, ClientToScreen(pt).y);
SetCursorPos(x,y)
Pero al ser x e y, las coordenadas en relación a la pantalla completa, no solo al area cliente, habrá que convertir a la posición relativa, añadiéndole la diferencia entre el 0,0 de la pantalla y la posición del form.
Otra opción es utilizar la función de Delphi ClientToScreen:
var
pt:TPoint;
begin
pt.X := 30;
pt.Y := 30;
SetCursorPos(ClientToScreen(pt).x, ClientToScreen(pt).y);