안녕하세요. 천리안 프로그래머 포럼 델파이 담당자 댁스터(강범석)입니다.

  메인메뉴의 Items속성을 잘 이용하면 됩니다.

  다음과 같이 해보세요. 그럼 이해가 가실겁니다.

  일단 새 프로젝트를 만드시고 폼에 버튼 1개, 메인메뉴 1개를 떨굽니다.

  그리고 버튼의 OnClick 이벤트 핸들러를 다음과 같이 작성합니다.

  procedure TForm1.Button1Click(Sender: TObject);
  var
     Sub1, Sub2, Sub3: TMenuItem;
  begin
     Sub1 := TMenuItem.Create(self);
     Sub2 := TMenuItem.Create(self);
     Sub3 := TMenuItem.Create(self);

     Sub1.Caption := '1';
     Sub2.Caption := '2';
     Sub3.Caption := '3';

     Sub3.OnClick := Sub3Click;

     MainMenu1.Items.Add(Sub1);
     MainMenu1.Items.Items[0].Add(Sub2);
     MainMenu1.Items.Items[0].Items[0].Add(Sub3);
  end;

  그리고 Sub3Click procedure를 작성합니다.

  procedure TForm1.Sub3Click(Sender: TObject);
  begin
       close;
  end;

  위 프로시저는 당연히 클래스 선언부에 선언을 해야겠죠?

  procedure Sub3Click(Sender: TObject);

  그리고 실행을 해보세요.. 그럼 이해가 가실겁니다.