|
안녕하십니까? title bar없는 form을 가지고 몇가지 작업을 하다가 문제에 봉착해서 이렇게 글을 올립니다.
Title대용으로 panel을 올리고 mouse down에 다음과 같이 작업을 하여 form을 움직이게 하였는데..
최종 form의 위치를 계산하여 sub form들도 같이 움직이게 하려고 mouse up을 생각했는데..
SendMessage만 보내면.. mouse up이 발생하지 않더군요...
혹시 해결책이 있을까요..
void __fastcall TForm2::Panel1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Shift.Contains(ssLeft))
{
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}
}
void __fastcall TForm2::Panel1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ShowMessage("hello");
}
//---------------------------------------------------------------------------
|