一个关于MDI的问题，很愁人！(100分)

B

bdx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #1

我制作了一个MDI程序含有两个子窗体，其中一个子窗体处于最大化状态，要求按ESC键后
当前处于最大化状态的子窗体隐去而另一个马上最大化覆盖当前的子窗体。
目前的问题是：
两个窗体在切换过程中，由于windows的特效，可以很清楚看到窗体的放大过程。而我希望
窗体的放大过程越快越好，看不到放大过程最好，哪位有办法？

 

Z

zhoujg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #2

你可以都最大化，不用最小化啊，因为反正同一时间只有一个最大化窗口打开吗，
当打开另一个只要使另一个显示在前面好了。

 

L

lyywy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #3

同意，两个都最大化，当打开另一个只要使另一个显示在前面好了

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #4

试试先show 后hide

 

A

AeroCheetah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #5

try this code:

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = char(VK_ESCAPE) then
begin
form3.show;
form3.WindowState := wsMaximized;
end;
end;

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = char(VK_ESCAPE) then
begin
form2.show;
form2.WindowState := wsMaximized;
end;
end;

 

W

waxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #6

根本就用不着把窗体最小化,你需要显示哪个窗体的时候就显示该窗体,不需要的时候就
隐藏该窗体!!!!!!!解这么简单!!!!

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #7

代码什么样的？我怎么看不到你所说的问题。

 

B

bbkxjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #8

从 Forms.pas 中拷过来的：
procedure SetAnimation(Value: Boolean);
var
Info: TAnimationInfo;
begin
Info.cbSize := SizeOf(TAnimationInfo);
BOOL(Info.iMinAnimate) := Value;
SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
end;

procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer);
var
Animation: Boolean;
begin
Animation := GetAnimation;
if Animation then SetAnimation(False);
ShowWindow(Handle, CmdShow);
if Animation then SetAnimation(True);
end;
使用:
使子窗口最大化： ShowWinNoAnimate(MDIChildForm1.Handle, SW_MAXIMIZE);
使子窗口最小化： ShowWinNoAnimate(MDIChildForm1.Handle, SW_MINIMIZE);

 

郭

郭玉梁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #9

procedure TMain01Win.FormActivate(Sender: TObject);
begin
WindowState := wsMaximized;
end;

 

L

liu_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #10

使用MDI好像是有这方面的问题,暂时没有找到好的解决办法

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-20

• #11

多人接受答案了。