********如何遍例菜单中的菜单项?*******急!急!急!急!急!急!急!急!急!急!急!*****************

Question

 for I := 0 to MainMenu1.Items.Count  - 1 do
begin
MainMenu1.Items.\\end ;

Answer 1

// 给你一个回调方式的处理，也可以不用回调type
  TMenuItemProc = procedure(mi: TMenuItem) ; // 如果是类中的方法，则加上of objectprocedure ForEachMenuItem( mi: TMenuItem; proc: TMenuItemProc );
var
  i: Integer;
begin
  proc( mi ); // 如果不想用回调proc，就在这里处理
  for i:=0 to mi.Count-1 do
    ForEachMenuItem( mi[i], proc );
end;// 传入主菜单时如此做
ForEachMenuItem( Form1.Menu.Items, proc ); // proc是你定义的一个处理方法// 传入弹出菜单时如此做
ForEachMenuItem( Form1.PopupMenu.Items, proc ); // proc是你定义的一个处理方法

Answer 2

如果我想对每个MenuItem的DrawItem遍例,该怎么办?
一定给分!!!!我得先把手上的问题解决了.注:小弟用delphi还不久!!!!!!!