放在窗口类中:
void __fastcall myMove(TMessage & Msg);//自定义函数
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_NCHITTEST, TMessage, myMove)
END_MESSAGE_MAP(TForm)
void __fastcall TForm2::myMove(TMessage & Msg)
{
TPoint pt;
pt.x = Msg.LParamLo;
pt.y = Msg.LParamHi;
pt = ScreenToClient(pt);
TRect rt;
SetRect(&rt,0,0,ClientWidth,27);
if(PtInRect(&rt,pt))
Msg.Result = HTCAPTION;
else
DefaultHandler(&Msg);
}
拖动无标题栏的窗口
最新推荐文章于 2024-01-15 10:18:31 发布