我想在程序中取出主窗体的所有菜单（含二级、三级等），然后将她们的caption罗列在一个listview之类的控件中，该如何做？还想问一下如何

Question

如上。

Answer 1

//给你个例子
procedure TFrm_Main.SetAllMenuItemVisible(mi: TMenuItem;bCanSee: Boolean);
var
  i: Integer;
begin
  mi.Visible:= bCanSee;
  for I := 0 to mi.Count - 1 do    // Iterate
  begin
    mi.Items[i].Visible := bCanSee;
    //否则判断是否有子菜单
    if mi.Items[i].Count>0 then SetAllMenuItemVisible(mi.Items[i],bCanSee);
  end;    // forend;//调用时要循环把主菜单的每个item给他如
for i:=0 to mmMenu.Items.count
  SetAllMenuItemVisible(mmMenu.Items[i],bCanSee);还想问一下如何让listview的每个caption旁出现一个checkbox?
拿你用checklistbox好了，简单

Answer 2

另外listview有checkbox属性啊
设成true，注意viewstyle，一样有checkbox
给分吧