BitButton y PopUpMenu

[bustio]

HOla!!!!!

Tengo en mi aplicacion un PopUpMenu y un BitButton.. y quiero que cuando le de un click sobre el bitbuton salga debajo de este el PopUpMenu.... solo que no se como hacerlo... Alguien me podria ayudar???

Gracias!!!!

[__marcsc]

Hola,

solo tendrías que ejecutar el método Popup(X,Y) del PopupMenu en el evento OnClick del TBitBtn, donde X e Y son las coordenadas de donde tu quieres que se despliegue.

Saludos.

[delphi.com.ar]

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  APoint: TPoint;
begin
  with SpeedButton1.BoundsRect do
    APoint := ClientToScreen(Point(Left, Bottom));
  PopupMenu1.Popup(APoint.x, APoint.y);
end;

Saludos!