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