是不是弹出菜单啊!delphi里面有这样的控件。在listview里的popup里面加上弹出菜单就可以了!

解决方案 »

  1.   

    搞一个popupmenu控件
    listview1.popupmenu:=popupmenu1;
      

  2.   

    你在MouseUp下写如下的代码,第一次弹出菜单是在松开鼠标键时,以后再按就是
    按下时弹出,这个可能是弹出菜单机制的问题
    procedure TForm4.RzListView2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       rzlistview2.popupmenu:=popupmenu1;
    end;
      

  3.   

    你在MouseUp下写如下的代码,第一次弹出菜单是在松开鼠标键时,以后再按就是
    按下时弹出,这个可能是弹出菜单机制的问题
    procedure TForm4.RzListView2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       rzlistview2.popupmenu:=popupmenu1;
    end;
      

  4.   

    procedure TForm1.RzListView2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       popupmenu1.popup(x,y);
    end;
      

  5.   

    你可以在ListView的ContextPopup事件中处理菜单弹出而不是在MouseDown、MouseUp中:procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    begin
      Handled := true;
      PopupMenu1.Popup(MousePos.x,MousePos.y);
    end;
      

  6.   

    你可以在ListView的ContextPopup事件中处理菜单弹出而不是在MouseDown、MouseUp中:procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    begin
      Handled := true;
      PopupMenu1.Popup(MousePos.x,MousePos.y);
    end;
      

  7.   

    可否不关联popupmenu,自己在MouseUp事件里面弹出?