listview中的弹出菜单怎么控制？
在listview 中，选中item时，弹出一个菜单，点击空白处时，显示另一个菜单。
[解决办法]
一个简单的变通办法是：
写在一起，然后在OnPopup中处理一下：
mnu1.Enabled（Visible） := lst1.Selected <> nil; 之类的
[解决办法]
这个含简单啊，在listview 的MouseDown事件中添加如下代码：
procedure TForm1.lv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
test:THitTests;
point:TPoint;
begin
if Button=mbRight then
begin
test:=self.lv1.GetHitTestInfoAt(X,Y);
point.X:=X;
point.Y:=Y;
point:=Self.lv1.ClientToScreen(point);
if htNowhere in test then
begin//在空白处
self.pm1.Popup(point.X,point.Y);
end
else
begin//在项目上
self.pm2.Popup(point.X,point.Y);
end;
end;
end;
[解决办法]
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ListView1.Selected = nil then
begin
//点的是空白处
end
else
begin
//点的是ITEM
end;
end;
