神马品牌网工业氢氧化钠溶液浓度:如何实现无标题窗口的拖动
来源：百度文库 编辑：神马品牌网 时间：2024/07/03 12:30:46
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;