|
안녕하세요.
김영욱이라고 합니다.
아마 님께서 캡션바 없는 폼을 만드시는것 같네요..
(폼의 BorderStyle을 bsNone 으로 사용하셨겠죠?...)
이럴경우 원하는 곳에서 마우스 다운이벤트가 들어왔을때 폼이 이동하게
하려면 메시지를 가로채면 가능합니다.
예를 들어서 폼의 상단쯤(캡션을 대처하는 역학)에 TImage(또는 TPaintBox)를 하나
놓고 Align을 alTop으로 하시고 원하는 그림을 띄워놓고, 다음과 같이 하면 됩니다.
void __fastcall TForm1::PBoxCaptionMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
SendMessage(Handle,WM_SYSCOMMAND,0xf012,0);
}
도움이 되셨기를...
남병철 님이 쓰신 글 :
: 보통 폼을 이동하는 경우는 폼 상단의 타이틀바를 이용해서 이동시킨다.
: 하지만 폼의 표면을 타이틀바처럼 클릭해서 드래그하면 폼 전체가 이동
: 되는 효과를 보려면 어떻게 해야 하나요?
: 조금이라도 좋으니 아시는 분을 도와주세요. ^^;
|
