把listview的viewstyle属性设为vsReport。怎样使得popupmenu只在鼠标右击listview中的item时弹出,而右击listview

Z

zhbruce

Unregistered / Unconfirmed
GUEST, unregistred user!
把listview的viewstyle属性设为vsReport。怎样使得popupmenu只在鼠标右击listview中的item时弹出,而右击listview的其他地方时不弹出?怎样(50分)<br />把listview的viewstyle属性设为vsReport。
怎样使得popupmenu只在鼠标右击listview中的item时弹出,
而右击listview的其他地方时不弹出?怎样知道点击的item的index?谢谢!
 
弹出先检查下 listview.selected是否有就行了咯
我就是那样的
 
1.设置ListView的PopupMenu熟悉
2.在OnContextPopup事件处理代码如下:
procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if ListView1.GetItemAt(MousePos.X, MousePos.Y) <> nil then
begin
//你的处理语句,例如设置菜单的Enabled属性
end
else
Handled := True; //不弹出菜单
end;
 
顶部