请问怎样建立一个modal窗体(50分)

A

AKang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #1

如题，当按一个按钮建立一个新的窗体时，ShowModal是虚拟方法，却不能用，请用怎样才能
使它Modal显示

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #2

Application.CreateForm(Form2, TForm2);
Form2.Visible:=False;
Form2.ShowModal;

 

A

AKang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #3

忘了说明一下，要新建的窗体是一个MDI子窗体，不能用Visible:=False;

 

鲁

鲁小班

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #4

procedure TForm1.Button1Click(Sender: TObject);
var mdichild:Tform2;
begin
mdichild:=Tform2.create(self);
mdichild.FormStyle:=fsnormal;
mdichild.Visible:=false;
mdichild.ShowModal;
mdichild.Release;
end;
能基本实现你的要求,但是会闪烁,还不如从新做一个modal窗口

 

A

AKang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #5

多人接受答案了。