Question

delphi listview popupmenu 的问题

如果listview1中的数据被选中。则popupmenu子菜单里面的项被激活。
如果没有被选中。那都是灰色的。

Answer 1

在popupmemu的onpopup里写
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
i: integer;
begin
if listView1.SelCount = 0 then
begin
for i:=0 to PopupMenu1.Items.Count -1 do
PopupMenu1.Items[i].Enabled:= False;
end;
end;