如何实现没有边框的窗口鼠标拖动？
我的窗口属性中去掉了框架，如何才能用鼠标按下客户区实现拖动呢？ 问题点数：20、回复次数：2Top
1 楼halibut（g3）回复于 2003-09-02 12:42:54 得分 10
捕获WM_LBUTTONDOWN
void TForm1::OnLButtonDown(TMessage & message)
{
//TODO: Add your source code here
if(message.Msg==WM_LBUTTONDOWN)
SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,message.LParam);
}else{
TForm::Dispatch(&message);
}
}Top
2 楼halibut（g3）回复于 2003-09-02 12:51:48 得分 10
捕获WM_LBUTTONDOWN
void TForm1::OnLButtonDown(TMessage & message)
{
//TODO: Add your source code here
if(message.Msg==WM_LBUTTONDOWN){ //不好意思,这里少个 {
SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,message.LParam);
}else{
TForm::Dispatch(&message);
}
}
Top
