关于拖拽(50分)

  • 主题发起人 主题发起人 whhak
  • 开始时间 开始时间
W

whhak

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么能拖拽窗体的任意一部分就能使窗体移动??
 
关注这个问题。
 
没人知道??
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=162574
 
老问题了。

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(handle,wm_SysCommand,$F012,0);
end;
 
多人接受答案了。
 
后退
顶部