如何要将窗体锁定，应如何设置？

Question

thanks!

Answer 1

不是很明白
不知道是不是这个意思，就是你一旦打开某个界面后，就不能再其他的界面操作拉，
如果是这样的话，把你的open命令改称showmodel,就ok拉

Answer 2

处理WM_NCHITTEST消息：
type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  Inherited;
  if Message.Result = HTCAPTION then
    Message.Result := HTCLIENT;
end;