请问如何使窗体不能移动，但可最大最小化

Question

       procedure WMNcHitTest(var Message: TWMNcHitText);procedure TForm1.WMNcHitTest(var Message: TWMNcHitTest);
begin
  inherited;
  if Message.Result = htCaption then
    Message.Result := htClient;
end;

Answer 1

不过上面的方法可以破掉。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SysCommand, $f012, 0);
end;

Answer 2

我记得有一api函数可设置form为nomove的啊，不过记不住了，呵呵

Answer 3

搞一个none的窗体，然后自已画最小化，最大化，关闭就行了