有一个列表视图 + 一个 PopUpMenu。我需要在项目存在时出现 PopUpMenu。菜单不能在 0 项时出现。
这个近似代码是否合适(可以作为基础)?
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
P:=GetClientOrigin;
if Button = mbRight then
PopupMenu1.Popup(X+P.X+StringGrid1.Left, Y+P.Y+StringGrid1.Top);
end;
还有其他方法吗?
谢谢!!!