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;
123456
Base = CMenu.Create; File = Base.CreateMenu; File_New = File.CreateMenu; MainForm.Menu = Base
Base = CMenu.Create; File = Base.CreateMenu("ファイル(&F)"); File_New = File.CreateMenu("新規作成(&N)"); MainForm.Menu = Base
12345678
Base = CMenu.Create; Menu = CMenuItem.Create; Menu.Text = "クリックしてみて"; Menu.OnClick = { Mes("クリックされました。"); } Base.AddMenu(Menu);