Checked属性为True 动态创建菜单 源代码如下 procedure TForm1.Button1Click(Se

　　菜单组件TMainMenu

创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项

菜单中添加支解线只需加“-”就可以添加一个支解线 

级联菜单的设计

单击鼠标右键弹出菜单中选择Create Submenu菜单项 

单选成果设计

要在设计的菜单项目中选择RadioItem属性为True，Checked属性为True

复选成果的设计

在设计菜单项目中选择RadioItem属性为False，Checked属性为True

动态创建菜单

源代码如下

procedure TForm1.Button1Click(Sender: TObject); var MainMenu: TMainMenu; MenuItem: TMenuItem; begin //主菜单创建 MainMenu:=TMainMenu.Create(self); Self.Menu:=MainMenu; //文件菜单创建 MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:=‘文件‘; MainMenu.Items.Add(MenuItem); //新建子菜单创建 MenuItem:=TMenuItem.Create(MainMenu); MenuItem.Caption:=‘新建‘; MainMenu.Items[0].Add(MenuItem); //子菜单中的子菜单创建 MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:=‘打开‘; MainMenu.Items[0].Items[0].Add(MenuItem); MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:=‘生存‘; MainMenu.Items[0].Items[0].Add(MenuItem); end; end.

　　为主菜单添加图标

　　为菜单添加图标，首先用TImagaList组件为菜单指定好图标，将菜单中的Images属性设为ImageList1，然后选择要添加的图标索引。如图所示：

Delphi 之 菜单组件（TMainMenu）

，