궁금이... 님이 쓰신 글 :
: 안녕하세요 질문 하나 올립니다.
: 제가 코드기어 2009를 사용하고 있구요
: 폼에 boder가 맘에 안들어서 bsNone으로 하고 진행하고 있습니다.
: 근데 bsNone으로 하면 폼 사이즈 조절이 안되서 찾아보니
: CreateParams에서 Params.Style = Params.Style|WS_THICKFRAME; 이렇게 하면 된다고 해서
: 했더니 잘 되더군요 문제는 이겁니다.
: 패널 하나를 폼에 올리고 alTop으로 올렸습니다. 그리고 거기가다가 각 메뉴나 minimized등 같은 버튼을 만들었습니다.
: 그리고 창을 maximized로 하면 깔끔하게 올린 패널이 최상위 상단에 보여지는데
: normal상태로 하면 altop으로 올린 패널위에 10픽셀정도 border가 보이더군요
: 이거 없앨수 있는 방법 없을까요 os는 windows 10이구요 ㅠㅠ
:
: 그리고 이게 불가능 하다면 혹시 border색이라도 바꿀 수 있는 방법 없나요?
:
: 고수님들 답변 간절히 기다리겠습니다. 그럼 수고하세요
:
:
답변:
CreateParams()를 override 하고 있는 상태에서...
아래와 같이 virtual 함수인 WndProc() 를 override.
// WndProc virtual method override
void __fastcall TForm1::WndProc(TMessage &M)
{
static RECT rect = {0};
switch (M.Msg)
{
case WM_CREATE:
AdjustWindowRectEx(&rect, GetWindowLongPtr(Handle, GWL_STYLE) & ~WS_CAPTION, FALSE, NULL);
rect.left *= -1;
rect.top *= -1;
return;
case WM_NCACTIVATE:
return;
case WM_NCCALCSIZE:
if (M.LParam)
{
NCCALCSIZE_PARAMS* sz = (NCCALCSIZE_PARAMS*)M.LParam;
// sz->rgrc[0].top += 3; 상단 보더를 완전히 없애려면 코멘트 처리
sz->rgrc[0].left += rect.left;
sz->rgrc[0].right -= rect.right;
sz->rgrc[0].bottom -= rect.bottom;
return;
}
break;
default:
TForm::WndProc(M);
}
}
<rad studio 10.3>
Windows 10 에서 Caption Bar의 기능을 fully 에뮬레이션 하려면..
OS 에서 제공하는 DWM(Desktop Window Manager) API 를 이용해야 합니다.
|