菜单和listbox相关问题！

Question

我想把主菜单的每个菜单项都放到listbox中，然后在listbox中双击可以执行菜单的事件！请csdn的ggjj帮忙看看！如果listbox不行可否有类似控件可以实现！（除了treeview）！呵呵！麻烦大家了！

Answer 1

我想把主菜单的每个菜单项都放到listbox中？你怎么放的

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i := 0 to MainMenu1.Items.Count - 1 do
  begin
    ListBox1.Items.AddObject(MainMenu1.Items[i].Caption,TObject(MainMenu1.Items[i]));
  end;end;//这个是所有菜单项的click都指向这个
procedure TForm1.ccccc1Click(Sender: TObject);
begin
  ShowMessage(TMenuItem(Sender).Caption);
end;procedure TForm1.ListBox1Click(Sender: TObject);
var
  item:TMenuItem;
begin
  item := TMenuItem(ListBox1.Items.Objects[ListBox1.ItemIndex]);
  item.Click;
end;

Answer 3

actionlist是干什么的。 何必这样子做

Answer 4

是了下可以哈！只是那个菜单项没有遍历子菜单哈！我主要是不会把菜单项的click都指向item！谢谢啦 大哥哥！

Answer 5

主要是要实现一个功能搜索哈！菜单项太多有些用户不知道他需要的菜单在哪里，用户搜索出来的菜单就放到listbox中然后在这里点击就是了！快很多！