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), 일반 폼처럼 되는 것입니다.