Q&A

  • 버튼클릭시 팝업메뉴열리고 한번 더 클릭하면 닫히게 .
버튼클릭시 팝업메뉴열리고 한번 더 클릭하면 닫히게 하려면 어떻게 해야 할가요?..

버튼 클릭하면 팝업메뉴가 열리게는 되는데 닫히게는... 잘 몰르겟어요..

툴바에 있는 버튼 처럼 ..
1  COMMENTS
  • Profile
    라벤더 2005.03.22 19:45
    간단하게... 플래그 하나 사용해서 실행해주면 될듯합니다.

    물론 전역으로 하나 생성해서요.. 폼 생성시 True로 해주고..

    버튼 클릭부분에서는

    <!--CodeS-->
    procedure TForm1.Button1Click(Sender: TObject);
    var p : TPoint;
    begin
       GetCursorPos(p);
       if flag then
       begin
            PopupMenu1.Popup(p.x, p.y);
            flag := False;
       end
       else
       begin
            PopupMenu1.DispatchPopup(PopupMenu1.Handle);
            flag := True;
       end;
    end;
    <!--CodeE-->

    이런식으로 되겠죠;