为什么关闭OpenPictureDialog时，窗口一块关闭了？？(50分)

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #1

在表单1上：
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form2.showmodal;
end;
在表单2上：
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
ImageDBImage.picture.LoadFromFile(OpenPictureDialog1.filename);
end;

为什么在OpenPictureDialog关闭时，form2一块关闭了？？
用什么方法可以阻止？

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #2

你再试试
没有遇到你说的这种情况

 

R

roc_deng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #3

用Form2.Show ;不用ShowModal试试！

 

R

roc_deng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #4

不好意思，我刚才说的不行，我两种都试过了，都没有你所说的问题出现！

 

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #5

我自己解决了！！
不过还是谢谢你们！

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #6

哈哈哈，我知道了。
你用bitbtn,并且设了它的kind属性，
这样它就自动设置了这个按钮的modalresult属性，你应该改 为mrnone,而不能别的，否则，
你一按这个，模式窗体就会得到一个modalresult值,关闭了。
因为我也犯过这个错，仅为了懒的设置那个图标。

 

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #7

shangshang：
你说的对！！！可惜分已分了，要不都给你！！！

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #8

没关系,搞定了就好.
记得下次有分时叫我哦.