CB的Form最小化时无动画的原因

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, w7 p! m! a5 {一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton , l" g7 I* @1 P& g( o6 ]* W的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 6 U' a( j0 P; _& U他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 + D* P1 k, T3 k6 p1 Z$ G. S T% E8 P5 i6 b- J2 T6 r4 {2 l 可以在VCL的源码forms.pas中发现如下代码： 1 ?% }9 d% C j5 L0 I' y" X$ f; F ' f. t% i4 L3 d/ C' Bprocedure TApplication.Minimize; begin if not IsIconic(FHandle) then 5 {$ w% R: S, L( X+ p+ y begin NormalizeTopMosts; SetActiveWindow(FHandle); . @. U, C- C: c ShowWinNoAnimate(FHandle, SW_MINIMIZE); ; m( ]! i$ K, ^5 h ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); , m* {! I/ I! o: b) T1 o end; end; % p) |# _3 S1 l+ Z5 o procedure TApplication.Restore; begin if IsIconic(FHandle) then $ M' p1 L, z5 P9 s& [# Q" h. I4 a begin SetActiveWindow(FHandle); 6 j) t$ N- |4 E" {% m8 h ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ , c' v. J8 T% v3 x c+ b8 W3 _ {以下省略} end; ' c, `+ O- S" T7 e! Y 再看一下 ShowWinNoAnimate: 6 v) i* r4 K+ W8 k! j+ kprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; * ]- g5 F% l) ^0 K1 @begin $ t; q. z8 |7 r! \' C$ j7 l Animation := GetAnimation; if Animation then SetAnimation(False); （1） $ l! i: Q- x) M: `; ~! ` ^^^^^^^^^^^^^^^^^^^^^ ) x0 U+ I7 \9 } @5 y- K ShowWindow(Handle, CmdShow); ' e6 Y" Q# }" w6 Y, z if Animation then SetAnimation(True); end; / n* A2 {$ [6 h! u4 G& P * _9 \' v' a H" g) N7 C2 J再看一下 SetAnimation: ' g* A. D5 Y! Q5 T" S procedure SetAnimation(Value: Boolean); o$ C8 J! X) M3 u q, j/ u2 _var * R- N, m `, m* i5 s5 N* Y: c Inf TAnimationInfo; # x0 |" K5 {2 k/ T% E, \4 g nbegin , s. G5 J& b( d4 ~4 P Info.cbSize := SizeOf(TAnimationInfo); " o+ [0 t8 B8 U) b BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); % R) J, p- R, H5 C# R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ & w2 ~- x9 S( o: ^( Y, q; d+ U 原来在这里。 " g2 F* y2 y1 Pend; 2 U' p, Q6 s- o3 u让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm # g$ T/ W# B* Y: q! [. }0 o继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then / a3 | |9 ^0 ]" i Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 & v2 `; }% @4 U5 H; t9 V else : `- b! c3 X8 J2 d# Z) ]" x3 J) p1 K inherited; end; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 6 W+ R4 u* ]" x! u' v6 B- A隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， ) D: M7 G+ t# Y我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 1 N8 P" E$ E, U; {$ h5 ?的窗口了。具体改变方法如下。 , _: J1 i9 T2 ]; A+ M v 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 1 Y# ~" B: z: |然后将Forms.pas作为一个新单元加入到Project中。 " V. q3 m& c) W/ _1 ]2 e- s9 a1 M- I) s 2.更改Project Source如下： ; u; i6 U( Q0 p; R' [ $ ]0 i& o( U* U! @) K) z2 |program Project1; 2 ?2 y! [. {# C+ L9 ]0 W3 k . \! C0 a* w$ x: D+ f3 Kuses windows, , |) _, Y* P( `( n0 u/ i h/ l ^^^^^^^^^ - E( K3 u4 v- V I Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 5 w5 v# c7 Y6 ~7 _' R 6 c' i8 x( {3 F6 w/ B{$R *.RES} / x; c/ s: @3 v& |( j2 Q9 n 0 R( _7 Y& z% K8 B( ybegin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, $ f! _2 A0 {1 p$ V; G0 b j4 Z GWL_EXSTYLE) or WS_EX_APPWINDOW); 9 }) k* j9 d2 \, }# e9 t ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' t0 s9 D% b- ^( P) m/ D# s1 A6 m form1.show; ^^^^^^^^^^^ " | ~: m& z3 E# G8 ?: s showwindow(application.handle,sw_hide); & z+ M8 ]# ~% o( |+ g$ D( K- D. I ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 0 w1 s/ q! [, o) l) C4 z Application.Run; end. ! L; x& a/ b8 [: M8 O/ v 以上打了 ^ 的均为添加的代码。 # w1 Z& }, p* C. M. p# S; B $ W+ j: c) @9 g4 E, k 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 7 h% N4 U2 F) J* w/ t procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 6 j, d% }' A2 ]6 M" k5 Mbegin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 & R9 H/ _9 u v, L& L; U6 q. N inherited; 4 ^3 e0 F) J* |/ }% I8 M; c0 Bend; 通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 8 p q' U% s" ^) u 供大家交流。 $ s0 w& ?: _5 }5 ]: k% P+ ~- @