Posición del mouse en la pantalla

[Descendents]

Una cosa que me deje de decirte, por supesto este código lo pones dentro del evento que quieras.Yo lo puse en el onmousemove del form, pero lo pones en el doble click de un boton o de donde quieras.

Más Saludos

[roman]

Aunque en realidad no hace falta en MouseMMove ya que este evento incluye las coordenadas.

Para complementar lo dicho por Descendents apunto que Mouse.CursorPos da las coordenadas respecto de la pantalla y no del formulario. Si se desean las coordenadas relativas al formulario puede usarse ScreenToClient para convertirlas.

// Saludos

[lucasarts_18]

Hola Roman:

Me podrías ayudar un poco a utilizar ésta función (ScreenToClient) .

Gracias.
Aarón.

[[Lepe]]

Como yo llego primero, pues yo mismo


ScreenToClient y su homologo ClientToScreen vienen con cualquier objeto derivado de la clase Tcontrol, por tanto lo podemos usar en formularios y otros especimenes .

Descripción: ScreenToClient Segun una coordenada pasada por parametro, la interpreta como que pertenece a la pantalla, y te devuelve la coordenada según el control que se llame, Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var PuntoCliente, Punto:TPoint;
begin
 Punto.X := 100;
 Punto.Y := 40;
 PuntoCliente :=  Form1.ScreenToClient(Punto);
  Memo1.Lines.Add(' y '+IntToStr(PuntoCliente.Y)+ ' x '+ IntToStr(puntocliente.X));
 Button1.Top:= PuntoCliente.Y;
 Button1.left:= PuntoCliente.x;

end;

Punto está en coordenadas de la pantalla.
PuntoCliente es esa misma coordenada pero dentro del Formulario Form1.

Aclaraciones:

La pantalla empieza en 0,0 en la esquina superior izquierda.
Un Form, tiene la coordenada 0,0 igualmente en su esquina superior izquierda.

Si la ventana no tiene bordes, ni titulo, y está maximizada, las coordenadas Punto y PuntoCliente coinciden.

Dicho en plan "Lepero" : Coge un rotulador y pinta en tu Monitor un punto, digamos el 100,40 (100 pixels a la derecha, 40 pixels hacia abajo de la pantalla), Ahora PuntoCliente, te dice ese punto rotulado, qué coordenada es esa, respecto a Form1. OJO, puede dar coordenadas negativas, recuerda que el origen ahora, es la esquina superior izquierda de Form1 !!!

Ejecutas el programa:
Maximizas el programa y pulsas sobre el boton, El boton se mueve a las nuevas coordenas.

Si la ventana Form1 no está maximizada, el boton desaparece, ya que toma coordenadas negativas.

ClientToScreen:

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var PuntoCliente, Punto:TPoint;
begin
 PuntoCliente.X := 100;
 PuntoCliente.Y := 40;
 Punto :=  Form1.ClienttoScreen(PuntoCliente);
 Memo1.Lines.Add(' y '+IntToStr(Punto.Y)+ ' x '+IntToStr(punto.X));

end;

En este caso, depende de donde tengas la ventana, para que ese punto se traduzca a coordenadas de la pantalla.

Un saludo y espero se entienda.

[lucasarts_18]

Hola Lepe:

Gracias, lo explicaste bastante claro.

He implementado algo así:

Código Delphi [-]
 
procedure TFrmArchivos.btnAgregarClick(Sender: TObject);
var
Boton_Cory,Boton_Corx : Integer;
P ,Cord_Pantalla : TPoint;
begin
   //MnuBtnAgregar.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
   Boton_Cory := btnAgregar.Top + 17;
   Boton_Corx := btnAgregar.Left;
   Cord_Pantalla.X := Boton_Corx;
   Cord_Pantalla.Y := Boton_Cory;
   P := Self.ClientToScreen(Cord_Pantalla);
   MnuBtnAgregar.Popup(P.X ,P.Y);
end;

Pero de ésta manera me queda bajo el botón, la idea que quiero es que me quede justo sobre el botón .

Saludos y gracias nuevamente.

Aarón.

[[Lepe]]

¿Por qué le sumas 17 ?

Supongo que estabas haciendo pruebas y al final se ha quedado ahí

Un saludo

[lucasarts_18]

Hola:

Claro, estaba haciendo algunas pruebas y sumandole 17 logré que se posicioné justo debajo del botón, pero mi idea es todo lo contrario, me gustaría que se posicione justo sobre el botón y no por debajo de éste...

Saludos.