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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 ! W7 ^$ l0 [8 e( v4 c 答： # e" J ?" L; Q0 O* z1 _1 \3 o' T: a我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 / h7 v: A! _- G' r$ J, z & d: I0 O ]* C8 g( X 可以在VCL的源码forms.pas中发现如下代码： " i/ B) m# e/ Z/ N$ H procedure TApplication.Minimize; - a! i) s. ]/ M# b) e1 Hbegin if not IsIconic(FHandle) then * ?& c, t" k7 Z/ X/ [! v$ v begin : t) A4 y+ v% a2 y; k# N1 \0 g NormalizeTopMosts; SetActiveWindow(FHandle); . }# m/ T) G4 I0 [ ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); 9 h; F9 i* u7 }. _ end; ( y% \3 T" H O! l2 rend; " m B4 j5 Y* D) Y2 v# a' y2 ~ ; T! d) s6 y# I6 u' ?$ |/ Dprocedure TApplication.Restore; 0 P- l( g6 R- Q. G/ ^2 ubegin if IsIconic(FHandle) then 6 F) Z: i# \: ^, G begin SetActiveWindow(FHandle); ' M9 x6 h2 ~) u! Y4 ~; x! A( u5 B8 H ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 O( B9 |# A$ N; }8 v; Q {以下省略} end; 1 K% t& f) B# g+ T' W( a" E' _2 y& _" a) A再看一下 ShowWinNoAnimate: 8 I% H+ E% w7 D# X8 g: h* X : w, Y; C. C: v5 c* vprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var $ s% ? J! V# O/ q Animation: Boolean; begin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ + w1 t% Q: M; y& M ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); 5 }, h- }! w; P, z+ `6 g1 w3 Z; O6 Vend; 再看一下 SetAnimation: ( v" [9 k$ r/ y procedure SetAnimation(Value: Boolean); : X3 H5 Q7 H( v/ z* \7 ], e9 P- zvar 8 M7 k$ g. i/ a% n- ^ Inf TAnimationInfo; 4 x0 Y- p& a% v, mbegin 9 |, P- q: t$ w& P! _ Info.cbSize := SizeOf(TAnimationInfo); 9 A0 V/ ` S2 j8 `# G& h9 ~ BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - ?" w- j4 p) t4 _ 原来在这里。 & ]' v/ x7 U& y. d7 w/ xend; : c$ K. t6 ` @8 H) A+ j : I3 L# P5 M7 h& s2 N让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 , P( \. A. Y2 K" y& k1 x: B0 gTCustomForm的。 0 F% n; ~) b' ?' N! y7 X( l* W ' P0 `( _" y" W& b3 iprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then ! ?. y8 F, J9 h Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 , e. ~% ^+ e9 W5 L3 a Form1。 else inherited; . c) _0 n; e! O" Y* _" f4 mend; q6 Z0 ^; u: k( o6 m5 r) `你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 ! T8 c. y2 j& T" o' R/ V2 l, M1 T很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 . @' }4 Q1 d7 P a" ]7 A隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， . S9 {: D8 d6 C2 _. A我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 5 }6 \( G: n. h% ^7 M注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 + x4 t& i h5 E t 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， , H; Y7 _* G4 R$ ?6 W然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 6 U2 O9 Z( A2 ?2 n6 \program Project1; J" ^7 t' U) g: z! F- p8 V% a uses " S( p: Y8 N, ~7 Q. @; ^ windows, # W1 ?; l8 a/ F9 F1 [# x ^^^^^^^^^ - O- o! `3 o; B Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 2 y2 ~6 G% }% @$ }) t# V( R$ P2 O {$R *.RES} + o7 A8 W1 \. Qbegin Application.Initialize; Application.CreateForm(TForm1, Form1); 5 d# y, _$ h. S0 ~ SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, ( n' z$ ~% d O$ ~/ w GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; ^^^^^^^^^^^ : {' b+ O! W; n2 p5 s7 p5 \ showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; - { E* r; C' a. b6 t. q! L( l; yend. 以上打了 ^ 的均为添加的代码。 3 M+ q9 Y1 t$ F( _) N7 { 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 5 R/ g; D+ S; v, F% B, S( _/ ~" \procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); * m( P9 G3 x' L z7 Mbegin ; Q1 _- q2 W5 `; C{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and : @ d/ m7 c$ s! C) ]; [% V (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; end; 通过以上步骤，基本上旧可以实现动画缩放了。 ) L- e' C% `' X& m! b& ` % _0 o* i6 ` d" }: l& NBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 % X8 w; s6 j1 W( Z0 n# E& @8 Q