关于窗体的问题。

Question

 TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMMoving(var Msg: TMessage); message WM_MOVING;
  public
    { Public declarations }
  end;procedure TForm1.WMMoving(var Msg: TMessage);
var
P: PRect;
begin
inherited;  P := PRect(Msg.LParam);
  P^.Left := 0;
  P^.Top := 0;
  P^.Right := 640;
  P^.Bottom := 480;
end;

Answer 1

把窗体的borderstyle属性设为none别人也无法移动了，呵呵

Answer 2

捕获在Caption上的点击，自己处理即可。

Answer 3

以下是具体实现代码：
procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (msg.result＝htcaption) then msg.result:=htclient；
end;