안녕하세요.. GUI를 잘 몰라서요..
[메인메뉴]- com1
com2
~
com10
서브메뉴을 10개 만들어서 각각 작업을 하던 것을 한 function에 다 들어가서 작업을
하려고 합니다.
보통 GUI에서 com1click function 만들고 com2click function 이렇게 10개를 만들면 코딩길이가
길어지잖아요.. 그래서 나름대로 서브메뉴(com1,com2 -- )각각에 tag 1,2 주었는데
if문을 만들어서 해 보려고 합니다. 불려오는 명령어를 잘 몰라서요...
답변 주시면 감사하겠습니다. ^^
모든 GUI의 com1, com2 ... 의 이벤트를 comclick 이벤트 함수로 설정해 주시면 될것 같네요..
<!--CodeS-->
procedure TFrmMain.comclick(Sender: TObject);
begin
SelectMenu(TMenuItem(Sender).Tag);
end;
procedure TFrmMain.SelectMenu(Value: Integer);
begin
//메뉴처리....
end
<!--CodeE-->