Delphi移动无标题窗体...

来源:互联网 发布:逆战挂机宏数据 编辑:程序博客网 时间:2024/05/18 13:48

在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可

//--------Delphi移动无标题窗体------------------------------------procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin    ReleaseCapture;    SendMessage(Self.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);end;///////////////////////////////////////////////////////////////////////