Posición del mouse en la pantalla

[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.

[[Lepe]]

Sobre el botón.... es decir, arriba del botón !! jeje, yo contaba que quedara la esquina izquierda del menú, justo con la esquina izquierda del botón, por eso no te entendía.

El menú no tiene opción de Height, por tanto, tendrás que contar cuantos elementos tienes en el menú, despues multiplicarlo por una constante, y así saber cuanto le tienes que restar a Boton_Cory.

Es tarea compleja, ya que el usuario puede tener activa las "fuentes grandes" de windows, y por tanto esa constante tiene 2 posibles valores.

En este mensaje tienes más o menos el alto de un menú.

Para saber si tiene las fuentes grandes, busca por el foro, creo que se ha tratado.... más bien me extrañaría que no se hubiese tratado .

Un saludo.

[roman]

Empezado por Lepe

Es tarea compleja

Ya lo creo, pero hay una forma más fácil:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
const
  Flags = TPM_LEFTALIGN or TPM_BOTTOMALIGN or TPM_LEFTBUTTON;

var
  Pt: TPoint;

begin
  Pt := Point(Button2.Left, Button2.Top);
  Pt := ClientToScreen(Pt);

  TrackPopupMenu(PopupMenu1.Handle, Flags, Pt.X, Pt.Y, 0, PopupList.Window, nil);
end;

// Saludos

[lucasarts_18]

Hola Foristas:


Logré lo que quería:

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 + - 48); // y = Vertical
end;

a la coordenada Y le reste - 48 y quedo justito como quería, gracias por las nuevas idea expuestas.
Saludos.
Aaron.

[[Lepe]]

Roman, nunca dejarás de sorprenderme

Como siempre, haciendo facil lo dificil.

Un saludo