在ONMOUSEDOWN事件中,加入以下代码:
if (Button=mbright) and Assigned(TRzListView(Sender).Selected) then
begin
GetCursorPos(curpos);
self.pm1.Popup(curPos.X+10,curPos.Y+10);
end;
在ONMOUSEDOWN事件中,加入以下代码:
if (Button=mbright) and Assigned(TRzListView(Sender).Selected) then
begin
GetCursorPos(curpos);
self.pm1.Popup(curPos.X+10,curPos.Y+10);
end;