在没有标题栏的窗体中，怎样移动窗体？
怎样用鼠标在窗体的任何位置移动窗体，请指教！ 问题点数：15、回复次数：4Top
1 楼sundayboys（sunboy）回复于 2001-09-28 20:16:06 得分 15
Uses
Windows;
type
TForm1 = class(TForm)
protected
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;
var
Form1: TForm1;
implementation
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited
if M.Result = htClient then
M.Result := htCaption;
end;
Top
2 楼Nizvoo（）回复于 2001-09-28 20:24:17 得分 0
同上。
不過我提醒一下。
以後發貼前先search一下吧。Top
3 楼hansonboy（hansonboy）回复于 2001-09-28 20:27:29 得分 0
呵呵,这个问题我今天才问过人,下面是人家的回答
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;
Top
4 楼knock（垃圾土匪）回复于 2001-09-28 21:24:27 得分 0
多谢提醒！---Nizvoo
Top
