C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[53679] Re:[질문] 폼에서 캡션바만 날리기 질문입니다.
장성호 [nasilso] 1556 읽음    2008-06-16 11:57
1 폼의 캡션바 날리기는?
   간단하게 Form의 BorderStyle을 bsNone으로 설정하시면 됩니다.
  코드보다는 Object Inspector에서 하시면 좋을듯...

2. 캡션바 직접 구현은?
   1. 간단하게 TPanel을 하나 Form위에 Align=alTop으로 올리시구요
   2. Panel의 오른쪽 끝에 Button을 3개 놓으세요
      Button의 Anchors 를 akTop + akRight  로 하시구요
  3. 버튼 동작은?
      3.1 닫기 버튼은 Click에서 Close()만 호출해주면 되구요
      3.2  Minimize버튼은?
              Application->Minimize(); 또는 this->WindowState=wsMinimized;
      3.3 최대화 버튼은?
             현재 폼의 상태에 따라서
        if(WindowState==wsMaximized) WindowState=wsNormal;
        else  WindowState=wsMaximized;
4. Caption의 Click동작은?
    4.1 Panel을 클릭해서 이동은?
            ReleaseCapture();
            this->Perform(WM_SYSCOMMAND,0xf012,0);
    4.2 Panel을 더블 클릭시 Maxmize <-> Minimize 동작은?
         if(WindowState==wsMaximized)
             this->WindowState=wsNormal;
        else
            WindowState=wsMaximized;

총정리해서 아래와 같습니다.

//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_MinimizeClick(TObject *Sender)
{
//    this->WindowState=wsMinimized;
    Application->Minimize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_MaxNormalClick(TObject *Sender)
{
    if(WindowState==wsMaximized)
        this->WindowState=wsNormal;
    else
        WindowState=wsMaximized;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_CloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Pn_CaptionMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ReleaseCapture();
    this->Perform(WM_SYSCOMMAND,0xf012,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Pn_CaptionDblClick(TObject *Sender)
{
    if(WindowState==wsMaximized)
        this->WindowState=wsNormal;
    else
        WindowState=wsMaximized;
}


그럼..


레이 님이 쓰신 글 :
: 폼에서 캡션바를 날리고,
: 제가 캡션바 비슷한 것을 만들어서 사용하려고 합니다.
:
: void __fastcall TForm1::CreateParams(TCreateParams &Params)
: {
:     TForm::CreateParams(Params);  // call base class first
:     Params.Style = (Params.Style | WS_POPUP) & ~WS_DLGFRAME;
: }
:
: 다음과 같이 하면, 폼에서 캡션바만 날라가더군요.
: 그리고 제가 구현한 캡션바로 최대화를 시키면 작업 표시줄까지 먹어버립니다.
: 곰플레이어에서 전체화면 재생 누르는 것처럼요.
:
:
: 제가 원하는 것은
: 1. 캡션바 없음.
: 2. 전체화면시(ws_maximized), 일반 폼처럼 되는 것입니다.

+ -

관련 글 리스트
53676 [질문] 폼에서 캡션바만 날리기 질문입니다. 레이 1075 2008/06/16
53679     Re:[질문] 폼에서 캡션바만 날리기 질문입니다. 장성호 1556 2008/06/16
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.