如何枚举得到窗体上的菜单控件？

[laozhongcheng]

如题，如何枚举得到窗体上的每一个菜单控件的指针？
谢谢。

[S_caijing]

menu.item{i};

[lxpbuaa]

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
for I := 0 to Form1.ComponentCount-1 do
begin
if Form1.Components[0].ClassName := 'TMainMenu' then //或者'TMenuItem'
//(Form1.Components[0] as TMainMenu);这就是指针
end;
end;

—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

[charlish]

UP

[laozhongcheng]

知道答案了，谢谢回复，立刻给分。

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TMenu) then
(Form1.Components[i] as TMenu); // 这就是指针
end;
end;