Goman wrote:

> 예를 들어..

> 1. 관리

> 1.1 발송 => 여기는 생성했음

> 1.2 우편물발송

> 1.2.1 직접 =>여기 생성 방법은요...

>



var

MenuItem:TMenuItem;

MainMenuItem:TMenuItem;



procedure TForm1.MenuClick(Sender: TObject);

begin

MenuItem:=TMenuItem.Create(Self);

MenuItem.Caption:='MENU';

mnuFile.Items.Add(MenuItem);

end;



procedure TForm1.MainMenuClick(Sender: TObject);

begin

MainMenuItem:=TMenuItem.Create(self);

MainMenuItem.Caption:='MAIN MENU';

MenuItem.add(MainMenuItem);

end;



procedure TForm1.SubMenuClick(Sender: TObject);

var

subMenuItem1:TMenuItem;

begin

subMenuItem1:=TMenuItem.Create(self);

subMenuItem1.Caption:='SUB MENU';

MainMenuItem.add(SubMenuItem1);

end;