Delphi 右键菜单的问题PopupMenu

[复制链接]
查看11 | 回复1 | 2018-4-5 17:47:07 | 显示全部楼层 |阅读模式
理论上来说 直接设置PopupMenu的trackbutton就可以但是好像是不想的你再 你需要弹出的菜单的控件做MouseDown事件例如下面我是做德form的MouseDown事件:procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);varP:TPoint;beginGetCursorPos(P);if Button=mbleft t...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行