如何让一个窗体在屏幕上的位置固定不动？急

Question

Uses
  Windows;
  
type
  TForm1 = class(TForm)
  protected
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  end;procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
 inherited; with Message do
   if Result = HTCAPTION then
     Result := HTNOWHERE;
end;

Answer 1

拦截Window移动的消息就可以了

Answer 2

  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 3

简单
设置窗体borderstyle属性为bsnone

Answer 4

：　eric123(eric)　可是我 要border呀