MDI程序，要求把所有的子窗体最大化，并在每个子窗体里有一个Panel1，要把Panel1居中显示。求解决方案！先给20分，如果完成了再给100分！ ( 积分:

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #1

MDI程序，要求把所有的子窗体最大化，并在每个子窗体里有一个Panel1，要把Panel1居中显示。求解决方案！先给20分，如果完成了再给100分！ ( 积分: 20 )<br />所有的子窗体都是动态建立的，子窗体数目＞2，建立并最大化，并要求每个子窗体里的Panel1都要水平居中。
只要能实现且无异常即可，还要求所有子窗体的唯一性。先给20分，如果完成了再给100分！

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #2

所有的子窗体都是动态建立的，子窗体数目＞2，建立并最大化，并要求每个子窗体里的Panel1都要水平居中。
只要能实现且无异常即可，还要求所有子窗体的唯一性。先给20分，如果完成了再给100分！

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #3

走过路过的兄弟姐妹帮忙顶一下，或帮忙将问题提前，谢谢！

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #4

些问题绝对是对DELPHI高手的挑战，没有想像的那么EASY的。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #5

procedure TForm1.FormShow(Sender: TObject);
var
i:Integer;
begin


for i:= 1 to 10 do
begin
with tform2.Create(Self) do
begin
WindowState := wsMaximized;

end;
end;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
Panel1.Left := ClientWidth div 2 - Panel1.Width div 2;
end;

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #6

为什么这样就可以呢？用ShowWindow就不行，预先把MDIChild的WindowState设为wsMaximized也会出错

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #7

MDIChild 类型的 Form一创建就是 Visible为True的，所以不需要ShowWindow,
这是MDI的特性。

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #8

原来如此，谢谢了，下午我再给你加100分。到时再用大富翁的BBCALL来告诉你

 

大

大花鸡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-13

• #9

还有，在这种情况下如何保证MDIChild窗体只有一个实例啊？
用Assigned（）不管用了