delphi中弹出窗体
这是现在的“弹出窗体”的代码：
procedure TShow1Form.Button1Click(Sender: TObject);
begin
TestForm := TTestForm.Create(Application);
TestForm.Show;
end;

1.如何实现，弹出的窗体，用户无法移动？
2.弹出子窗体后，如果没有关闭的话，主窗体不能进行任何操作。
[解决办法]
提供一个方法，不过还不如用bsNone窗体

procedure TForm1.FormCreate(Sender: TObject);
var
_Menu:HMENU;
begin
BorderIcons:=BorderIcons-[biMaximize];

_Menu:=GetSystemMenu(Handle,False);
DeleteMenu(_Menu,SC_Move,MF_BYCOMMAND);
DeleteMenu(_Menu,SC_Size,MF_BYCOMMAND);
end;