关于模式窗体的问题？(50分)

H

haoxiangxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #1

请问各位富翁怎么把我设计的窗体转化为模式窗体,
var
zq1: Tzq;
begin
zq1 := Tzq.Create(self);
zq1.showmodal;
zq1.free;
end;
可以这么用的？

 

B

BlackDragon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #2

Tzq是窗体？可以。

 

H

haoxiangxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #3

to BlackDragon
zq是我设计的普通窗体

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
zq1: Tform;
begin
zq1 := Tform.Create(self);
zq1.showmodal;
zq1.free;
end;

no problem～

 

H

haoxiangxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #5

但zq不是模式窗体？

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #6

你可以关闭zq,显示zq1

 

晓

晓风月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #7

var
zq1: TForm;
begin
if Assigend(zq1) then
zq1 := TForm.Create(self);
zq1.ShowModle;
end;

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #8

模式与非模式不是在窗体设计时定下的，而是在显示的时候决定的，只要是用ShowModal显示
的就是模式窗体，用Show显示的就是非模式窗体。

 

H

haoxiangxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #9

但我用showmodal显示时，出现这样的错误
project project2.exe raised exception class Einvalid opertion with message
'cannot make a visible window modal' press stoped
use step or run to continue
为什么？该怎么做？

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #10

我测试了你的那段代码，没有问题，是不是你在TZQ的OnCreate或是OnShow之类的事件里
有特殊代码？

 

V

vcok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #11

老兄，在菜单Project->options..弹出的对话框中，有Forms一栏，
将zq1由auto-create forms转到Avalible forms中，再运行你上面的代码就可以了。
不要告诉我，zq1是你的MainForm哟，哈哈.

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #12

to vcok:没必要。

 

H

haoxiangxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #13

to vcok
还是不行啊！
to 教父
TZQ的OnCreate或是OnShow之类的事件为空,还是不行啊！

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #14

zq1.showmodal前面加一行
zq1.hide;就行了

 

N

nulk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #15

zq1.visible:=false;//或者在属性窗口中设置（忘了）
zq1.showmodal;

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #16

to menxin,nulk：两位的行为好古怪哦，呵呵。
to haoxiangxue:你的那段代码绝对不会有问题，可能是其它方面的问题，或者你试试
把Create(Self)改为Create(nil)再试试。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #17

这有什么奇怪，他的错误提示是'cannot make a visible window modal'，让他先show有什么不对吗？

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #18

你是不是试过MDIForm
第一，你现在不是MDI方式，然后把Tzq的Visible属性在设计期设为false就行了

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #19

Kang说得对，确实是MDI的问题，MDI的子窗体只须Create就行了，不用ShowModal;

 

N

nulk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #20

to：教父
没什么古怪的啊，帖子post之前我可没抄他的，只是英雄所见略同