Q&A

  • 메인메뉴 소스 코딩을 줄이려고 합니다.
안녕하세요.. GUI를 잘 몰라서요..

[메인메뉴]- com1
                 com2
                  ~
                 com10

서브메뉴을 10개 만들어서 각각 작업을 하던 것을 한 function에 다 들어가서 작업을
하려고 합니다.
보통  GUI에서 com1click function 만들고 com2click function 이렇게 10개를 만들면 코딩길이가
길어지잖아요.. 그래서 나름대로 서브메뉴(com1,com2 -- )각각에 tag 1,2 주었는데
if문을 만들어서 해 보려고 합니다. 불려오는 명령어를 잘 몰라서요...

답변 주시면 감사하겠습니다. ^^
2  COMMENTS
  • Profile
    손희석 2006.08.25 19:14
    우선 comclick 이벤트 함수를 만드시고..
    모든 GUI의 com1, com2 ... 의 이벤트를 comclick 이벤트 함수로 설정해 주시면 될것 같네요..

    <!--CodeS-->

    procedure TFrmMain.comclick(Sender: TObject);
    begin
        SelectMenu(TMenuItem(Sender).Tag);
    end;

    procedure TFrmMain.SelectMenu(Value: Integer);
    begin
       //메뉴처리....
    end

    <!--CodeE-->

  • Profile
    희망초고수 2006.09.01 22:34
    답변 감사드립니다.. ^^