12
Obj = CMenuItem.Create; Obj.Free;//開放する
1 2 3 4 5 6 7 8 91011121314151617
Base = CMenuItem.Create; //メニューアイテム File = CMenuItem.Create; File.Text = "ファイル(&F)"; SubMenu = CMenuItem.Create; SubMenu.Text = "サブメニュー(&S)"; //メニューFileへ追加 File.AddMenu(SubMenu); //ベースへ追加 Base.AddMenu(File); //フォームに追加 MainForm.Menu = Base;
12345678
Base = CMenu.Create; Menu = CMenuItem.Create; Menu.Text = "クリックしてみて"; Menu.OnClick = { Mes("クリックされました。"); } Base.AddMenu(Menu);