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