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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： ( t: h9 G1 H: e1 Q' P我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 1 S2 T* U8 s# ~" Y# p1 g) n一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 4 _" g4 w' i% v5 c4 Q2 F8 d的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 6 @$ _2 a+ T8 L7 x" s4 o % _2 K8 }5 H3 e, e- H 可以在VCL的源码forms.pas中发现如下代码： 9 Q+ r, e1 t1 }: C) l6 Q 1 ^- D/ c' Y+ gprocedure TApplication.Minimize; 7 x/ ~7 v# j3 R; ^+ K4 B0 B( Pbegin $ F* I4 `4 H. n* \+ A* J3 D if not IsIconic(FHandle) then . l4 n# w- \% r1 b6 n8 P begin NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); 7 e3 d- }! v" x& Z" |) z8 W: Z end; end; procedure TApplication.Restore; begin if IsIconic(FHandle) then , V/ W& v/ N( H2 s5 w: s7 V begin SetActiveWindow(FHandle); 4 Z9 H! l& Z' l- Q ShowWinNoAnimate(FHandle, SW_RESTORE); 3 x7 e* _" T- T: ^+ p ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} ( n+ M6 I w+ W. vend; 3 F. ~; y9 U% J/ p8 ` * C( l3 {4 v0 ^# P& h L. z再看一下 ShowWinNoAnimate: 6 d( v$ K8 u( {7 O$ [ procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; 4 N# d3 J* U7 I9 Qbegin " V" G1 R- Z1 ?2 f7 L) I# ~5 o1 G Animation := GetAnimation; if Animation then SetAnimation(False); （1） # @# A8 h+ O2 S- d: a2 q7 i" Z ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); 8 \- k- a* N* z9 \ if Animation then SetAnimation(True); end; 0 _" g3 K e% ], t' I 再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); var ) S+ n4 q' t P Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); 0 I) ^4 j) i$ r+ c' B) G BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; ! w" o. x+ |7 P& h1 B* c! n 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm ! a) E1 D+ q! G& z/ s7 b. B" }$ ~继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 6 {3 K. T N0 |8 N ~. x* CTCustomForm的。 & R; o) C. v$ p procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); / L; b" ]: h7 r( ], O; Y; wbegin ; Q+ C, @% \9 x9 z1 k) j if (Message.CmdType and $FFF0 = SC_MINIMIZE) and " H$ Y7 P. S! {2 P1 H2 Z: v5 L (Application.MainForm = Self) then 4 Y7 B/ t6 Y% o" |3 S9 y Application.Minimize ! a) E5 D0 D: `9 Y8 P ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 $ C( m+ W1 s) y9 I" T' A" S else inherited; ; _4 R6 O, I* M& X4 Kend; 4 ]$ d) ^4 p8 P+ ~- @: o" Y你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 1 K( H( @; f7 [* @1 e: \很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 9 S1 A6 T& l. `; V+ k' m: h% j O5 D. F隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand / R3 N3 E$ |0 } ` q注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application , _; U% L2 G* Z) C. d0 L# v的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 " o) {4 G: }- w! X* {, ~ 2.更改Project Source如下： 1 ]- E& I: A) d' c! { - \6 f& d: d N ~program Project1; 6 ]8 I5 L% S c5 Q9 w& Duses windows, 1 |, c. c) b" N7 @- N. ]7 d ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 7 g7 o# _7 w8 n, F' u; |, [ {$R *.RES} " [5 b# u5 j3 a% \+ | , ?2 f8 F' `* a: _: U) p# mbegin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, ; k1 W* ?0 |& J4 L# ~, G GWL_EXSTYLE) or WS_EX_APPWINDOW); 7 t* x( x0 f3 M( x3 N ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ * h9 S' P4 r- L+ e form1.show; 6 M* ] v k* v6 P$ m- n7 Y ^^^^^^^^^^^ 7 O: B7 r# C9 o* h2 x) j9 M showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ % Q( Y8 d, I$ z) I Application.Run; / D9 V# a8 \( |, Y7 \end. . t8 S" @: j: N- W# M, n, y 以上打了 ^ 的均为添加的代码。 4 F6 K6 }% _' o' A$ H 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 7 l2 ^" L& o+ z5 q; [/ y% t" [( H 大家也可以试一试不改的效果。 3 N/ i1 t n% Jprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 7 l0 m* s1 X3 X; Q, bbegin 2 N) c& D0 S* N1 [2 c6 ?) r{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then 1 ?1 l+ m7 o% H3 l& |) G* N Application.Minimize else} -------------------------------- 注释掉了。 ' @) O1 I' W- p4 i0 s$ t inherited; end; 3 X- s: N. R4 K _ o6 T 4 _3 }3 K( ]" C. U( V; s2 M. k通过以上步骤，基本上旧可以实现动画缩放了。 6 Z% s; U* W; F( h$ y u . A1 l$ A" M0 Z" X$ N D& SBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 / M& [& G$ x, {0 y0 W. S" m1 ? 供大家交流。 & _; D% K: i' w# v* V