让控件的DropdownMenu或者PopupMenu弹出来

来源:互联网 发布:mac电脑远程控制怎么弄 编辑:程序博客网 时间:2024/05/17 02:22
procedure TMainFrm.ToolButton6Click(Sender: TObject); var   MemuPos: TPoint; begin   MemuPos := TToolButton(Sender).ClientToScreen(Point(0, 0));   MemuPos.y := MemuPos.y + TToolButton(Sender).Height;   TToolButton(Sender).DropdownMenu.Popup(MemuPos.x, MemuPos.y); end;

原创粉丝点击