delphi中弹出窗体

[读万卷书不如行万里路呀]

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

1.如何实现，弹出的窗体，用户无法移动？
2.弹出子窗体后，如果没有关闭的话，主窗体不能进行任何操作。

[hsfzxjy]

testform不处理WM_MOVE就可以了

[读万卷书不如行万里路呀]

[Quote=引用 4 楼 的回复:]

可以改变窗体大小吗,即允许通过鼠标在边角上拉大或者缩小窗体吗?
[/Quote]
不允许改变大小

[读万卷书不如行万里路呀]

[Quote=引用 5 楼 的回复:]

testform不处理WM_MOVE就可以了
[/Quote]
哪里处理呢？有属性可以直接设置吗？

[kaikai_kk]

提供一个方法，不过还不如用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;

[hsfzxjy]

[Quote=引用 7 楼 的回复:]
引用 5 楼 的回复:

testform不处理WM_MOVE就可以了

哪里处理呢？有属性可以直接设置吗？
[/Quote]
TTestForm=class(TForm)
protected
procedure WndProc(Msg:TMessage);override;
//.....
end;
implementation

procedure TTestForm.WndProc(Msg:TMessage);
begin
if Msg.Message=WM_MOVE then exit;
inherited;
end;

[读万卷书不如行万里路呀]

bsNone窗体，考虑过，但是，就得写个button之类的关闭窗体了。。。

[hsfzxjy]

像9楼，屏蔽掉WM_MOVE消息。。
注意：一定要inherited;！！！！！！！！！！

[kaikai_kk]

TestForm.ShowModal;

[读万卷书不如行万里路呀]

[Quote=引用 1 楼 的回复:]

TestForm.ShowModal;
[/Quote]
可以，已经解决了问题2。。。
还剩问题1咯。。。

[iamduo]

最大化。用户就不能移动了。

[kaikai_kk]

可以改变窗体大小吗,即允许通过鼠标在边角上拉大或者缩小窗体吗?