查人人中国名人网深圳世界之窗附近海滩:如何实现无标题窗口的拖动
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/14 17:51:31
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;