くだすれDelphi(超初心者)その28

>>751

MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := 'MenuA';
PopupMenu1.Items.Add(MenuItem);
　SubMenuItem := TMenuItem.Create(Self);
　SubMenuItem.Caption := 'SubMenuA';
　MenuItem.Items.Add(SubMenuItem);
　SubMenuItem := TMenuItem.Create(Self);
　SubMenuItem.Caption := 'SubMenuB';
　MenuItem.Items.Add(SubMenuItem);
MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := 'MenuB';
PopupMenu1.Items.Add(MenuItem);
　SubMenuItem := TMenuItem.Create(Self);
　SubMenuItem.Caption := 'SubMenuA';
　MenuItem.Items.Add(SubMenuItem);
　SubMenuItem := TMenuItem.Create(Self);
　SubMenuItem.Caption := 'SubMenuB';
　MenuItem.Items.Add(SubMenuItem);
　SubMenuItem := TMenuItem.Create(Self);
　SubMenuItem.Caption := 'SubC';
　MenuItem.Items.Add(SubMenuItem);