摘要： 最近做一个Case就是遇到这样的事，用一个PopupMenu为Listview的子项使用。下面是代码；写的有点乱，不过能用；第一步先在你的你的Form的OnCretae事件中添加代码；procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begin for i:=0 to PopupMenu1.Items.Count -1 do begin PopupMenu1.Items[i].Visible :=false; end;end;//这个循环的作用是初始化PopupMenu的所有子项为不可见；procedure ... 阅读全文