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弹出来
最新推荐文章于 2024-08-01 21:45:55 发布