Posición del mouse en la pantalla

[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

[roman]

Empezado por Lepe

Como siempre, haciendo facil lo dificil.

Más bien Delphi haciendo difícil lo fácil. Como sabrás, Delphi sí maneja el alineamiento horizontal mas se han olvidado de añadir el manejo del alineamiento vertical.

// Saludos