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;
让控件的DropdownMenu或者PopupMenu弹出来
最新推荐文章于 2018-10-11 12:15:08 发布