如何把PopupMenu弹出来放在一个ToolButton的上面啊？

如题。。
点下按钮时，PopupMenu在按钮的上面。。

解决方案 »

  1.   

    设置PopupMenu.parent:=button1;
      

  2.   

    确实没有 PopupMenu1.Popup(button1.Left,button1.Top);
      

  3.   

    PopupMenu1.Popup(form1.Left+button1.Left,form1.Top+button1.Top);
      

  4.   

    那我的那个button1放在多个容器里面不是要写很多？
      

  5.   


    procedure TForm1.ToolButton2Click(Sender: TObject);
    var
      APoint: TPoint;
    begin
      APoint := ToolButton2.ClientToScreen(Point(0, ToolButton2.ClientHeight));  Inc(APoint.X, ToolButton2.Width div 2);  // if (GetSystemMetrics(SM_CYMENU) * PopupMenu1.Items.Count) + APoint.Y >
      //   Screen.MonitorFromPoint(APoint).Height then
      Dec(APoint.Y, ToolButton2.Height);
      TrackPopupMenu(PopupMenu1.Handle, TPM_BOTTOMALIGN + TPM_CENTERALIGN, APoint.X, APoint.Y,
        0, self.Handle, nil);
    end;
      

  6.   

    toolbutton有属性的吧我用raize的有个toolstyle属性，一个是tsbutton，相当于普通button，另一个tsdropdown，类似mean的
      

  7.   

    不过还是用RZ比较方便，DXBAR也行。