动态创建窗体 (100分)

C

cyhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #1

我在一个过程中用以下代码
var formn:tfieldtab;
fieldtab是我手工建的一个窗体名，
formn:=TFIELDTab.create(nil);
formn.showmodal;
formn.free;
formn:=nil;
来创建　一个窗体
但是会跳出‘cannot make a visible windows modal’的错误
然后再跳出窗体来但是关闭该窗体后，程序不会往下执行了
但我要在这个窗体关闭后程序继续执行，该怎么办？
请各位高手指点
我已经搞了二天了都还没搞定，急急急

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #2

tfieldtab ?
写出完整代码！

 

P

plzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #3

看看你的Project里是不是自动创建了该窗体？
var Formn:TFieldTab;
begin
Formn := TFieldTab.create(nil);
Formn.Show
//将这里改成Show试试。
Formn.Free;
Formn := Nil;
end;

主窗口关闭，Application也就自动结束。
如果你需要在窗体关闭后执行一些东西，那么就在它的OnClose里添加Code。

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #4

这和您的源码有关，您仔细检查一下您的窗口代码。。。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #5

procedure Tfieldtab.FormShow(Sender: TObject);
var
formn:Tform;
begin
formn:=Tform.create(nil);
formn.showmodal;
formn.free;
formn:=nil;
end;

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #6

try
formn.showmodal;
finally
formn.free;
end;
formn:=nil;

 

C

cyhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #7

不能用show因为我要暂停程序的执行
linsb的我试了也不行还是一样的错误

 

C

cyhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #8

那样这个窗体就不会出现了
我要在这窗体中执行程序

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #9

我试过，没问题，windows 2000 d5

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #10

你的窗体代码出了问题，得在那里面解决，比如说你将焦点定位在一个还没有
显示出来的控件上...

 

C

cyhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #11

问题解决了
我用另一个窗体就不会了
是我的原新的窗体可能那里出错了
真是莫名其妙！！！