在ONMOUSEDOWN事件中,加入以下代码:
if (Button=mbright) and Assigned(TRzListView(Sender).Selected) then
begin
GetCursorPos(curpos);
self.pm1.Popup(curPos.X+10,curPos.Y+10);
end;
本文介绍了一个在ONMOUSEDOWN事件中实现右键菜单弹出的代码示例。当用户使用鼠标右键点击时,通过判断按钮类型并获取鼠标位置,将自定义的菜单(pm1)在指定坐标弹出。
在ONMOUSEDOWN事件中,加入以下代码:
if (Button=mbright) and Assigned(TRzListView(Sender).Selected) then
begin
GetCursorPos(curpos);
self.pm1.Popup(curPos.X+10,curPos.Y+10);
end;
2595

被折叠的 条评论
为什么被折叠?