高校问答和尚和僧人的区别:如何实现无标题窗口的拖动
来源：百度文库 编辑：高校问答 时间：2024/05/09 13:16:42
delphi的：
在控件的鼠标按下事件，如panel控件：
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssleft in Shift)then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); //一句话就ok
end;
end;