Q&A

  • MDI폼에서 스크롤바 안생기게 하는 방법은 없나요?
MDI폼에서 스크롤바 안생기게 하는 방법은 없나요?

Child폼들은 스크롤바 안생기게 할수 있던데,
Main 폼은 스크롤바가 자동적으로 생기는 군요..
Scroll 속성이 있던데 고쳐도 안되는군요.
1  COMMENTS
  • Profile
    전문성 2003.03.15 06:21
    =====================================================
    전 이 Procedure를 만들어 쓰니 되던데요..
    (강의실에서 "MDI"로 검색하면 "mdi로 구현하는 MIS프로젝트 -이만준- "님의
    글에 있는대로 했거든요... 해석은 알아서 해보세요..^^

    procedure TSFM000M.ClientWndProc(var msg: TMessage);
    var
       ClientDC : HDC;
       MemDC : TBitmap;
       MemDCX, MemDCY : Integer;
       bTemp : Boolean;
    begin
       bTemp := True;
       case msg.Msg of
         WM_PAINT: begin
         end;

         $3F : bTemp := False;                   //ScrollBar없애기...
         end;

       if bTemp then
          with msg do
             Result := CallWindowProc(FOldDefWndProc, ClientHandle, msg, WParam, LParam);

    end;