窗体最小化的最问题？？？？？大侠大侠快快来(15分)

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #1

application.Minimize;在单独的窗体(Form)中，可以起来最小化的作用；

但我在一次测试中发现，当同时出现个窗体(Form)时就不行了

例如：
procedure Tform1.FormCreate(Sender: TObject);
begin
form2.ShowModal;
end;
然后在form2或是在form1设置

procedure Tform1.Ban2000Click(Sender: TObject);
begin
application.Minimize;
end;

就不能用了，请大侠指点一下，看看有没有其它最小化窗体的方法，

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #2

该成这样就行了
procedure Tform1.formshow(Sender: TObject);//form1是主窗体,在create时,form2还未create.
//所以不能show;
begin
form2.ShowModal;
end;
procedure Tform1.Ban2000Click(Sender: TObject);
begin
application.Minimize;
end;

 

P

polisnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #3

form2.showmodal后form1.btnclick不会触发的

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #4

两位大侠，以上的方法都试了，不信你们可以试看看，我就是这样才感到奇怪；
form2.showmodal后，用form1.btnclick，也不能用；
//---------------

还请大侠试看看；

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #5

1.这不奇怪啊,form2.showmodal后,因为是模态窗口,form1.btnclick当然不能用拉
2.要form2.show
3.form2.show要在form1的onShow事件中写

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #6

但我又希望让form2在form1之上；如何用show就不能达到这种效果；

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #7

我完成了，是将Form2设为top，其它正常可以用了；

把分分了，谢谢诸位