delphi7 listview 右击弹出菜单？怎么做到呢？

Question

加一个standard标签下TPopupMenu并设置菜单项，然后在listview的popupmenu里调用一下就哦了。

Answer 1

还要在控件事件上加上判断鼠标右键的代码哦
procedure TFMain.listview1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    Tlistview(Sender).GetNodeAt(X,Y).Selected:=True;
end;procedure TFMain.listview1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    TPopupMenu.Popup(X,Y);
end;