Como establecer una posicion fija para un popmenu

[jasmad]

buenas estoy tratando de hacer que cuando presiono un speedButton aparezca el popupmenu exactamente debajo de el independientemente de donde este ubicado el formulario.

he tratado de hacerlo asi

procedure TfrmPrincipal.btnClientesClick(Sender: TObject);
begin
     pmClientes.PopUp(100,100);
end;

Lo que pasa con esto es que el menu se coloca tomando la ubicacion en la pantalla y no sirve.

No se si este menu sirve para lo que quiero y si no tambien quisiera saber cual podria usar.

Muchas gracias por adelantado.

[[Chris]]

Hola!

Prueba con:

Código Delphi [-]
pmClientes.PopUp(btnClientes.BoundsRect.Left, BtnClientes.BoundsRect.Bottom);

Saludos,
Chris

[roman]

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Pt: TPoint;

begin
  Pt := Form1.ClientToScreen(Point(SpeedButton1.Left, SpeedButton1.Top + SpeedButton1.Height));
  PopupMenu1.Popup(Pt.X, Pt.Y);
end;

Si el SpeedButton está dentro de algún contenedor, como un panel por ejemplo, entonces tendráss que sustituir Form1 por dicho contenedor.

// Saludos

[ecfisa]

Hola.

Otro modo puede ser:

Código Delphi [-]
procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 with TSpeedButton(Sender) do
   if Button = mbRight then
     PopupMenu1.Popup(ClientOrigin.X + Width, ClientOrigin.Y + Height);
end;

Saludos.

[jasmad]

grxs a todos por la ayuda
al fin se pudo

procedure TfrmPrincipal.btnClientesClick(Sender: TObject);
var
   pt:TPoint;
begin
     pt:=panelMenuBotones.ClientToScreen(Point(btnClientes.Left+btnClientes.Width-9, btnClientes.Top+btnClientes.Height));
     pmClientes.PopUp(pt.x,pt.y);
end;