Q&A

  • 메뉴 동적 생성..부탁합니다..
제가 하고자하는 것은 실행중인 윈도우를 메뉴에 보여주어서 그것을 선택시

화면을 다시 보여주는 것을 하려하는데

NewItem을 사용해서 메뉴에 생성되게 했는데 Event처리시



var

NewItem: TMenuItem;



NewItem.OnClick := 이벤트;

을 사용했는데 파라미터를 넘기는 방법을 몰라서 한개의 폼만 됩니다..

어떻게 해야 되는 지 가르쳐주세요...

부탁합니다...



1  COMMENTS
  • Profile
    이기현 2000.04.25 10:32
    private

    procedure MenuClick(Sender: TObject);

    end;



    procedure TForm1.SpeedButton1Click(Sender: TObject);

    var

    NewItem: TMenuItem;

    begin

    NewItem.OnClick := MenuClick;

    end;



    procedure TForm1.MenuClick(Sender: TObject);

    begin

    Edit1.Text := 'ABCDE';

    end;