BitButton y PopUpMenu
 

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

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.

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!