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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 0 o7 W4 o6 B% u0 X6 [ u 答： 2 F; _- [" u% e% W* n我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 3 u- L$ M) m) @: m也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 & K9 U O- Y; TButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 0 F) P3 w& [/ g6 u! N: CTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 ! u2 R4 V% A( n5 E" h 可以在VCL的源码forms.pas中发现如下代码： 3 R2 {( g( ^1 n! u procedure TApplication.Minimize; ) H0 b4 x O$ [8 n/ Cbegin if not IsIconic(FHandle) then # o9 z0 h( ]# v begin 2 T7 U, L9 L: H' a$ ]& k1 G3 L" t NormalizeTopMosts; # V4 ^6 R X6 O, y SetActiveWindow(FHandle); - g0 l: r; W# M6 T ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ & o- b' k8 Q S1 W# j if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; . l ]8 a1 f- h, E7 m1 V! [ procedure TApplication.Restore; begin if IsIconic(FHandle) then begin $ }' B, z! i1 f' W5 }2 Q i5 ` R SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( P/ s5 E3 |9 t8 p6 s {以下省略} + j0 A1 A( {+ K- b) n( eend; - w' r# t( o% m! t再看一下 ShowWinNoAnimate: 6 ?$ j) ]3 ]+ ?; k( s2 Wprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; 2 t3 F9 ~- R2 q/ Mbegin % [8 M" ]* d5 B2 u0 H Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ 1 F1 j% v1 Z# d) i ShowWindow(Handle, CmdShow); % `" t+ y! W9 N! E5 q' U0 d* G if Animation then SetAnimation(True); $ G: a8 J9 C( L5 H3 ?end; ' a- J4 p" |& {再看一下 SetAnimation: : W4 s- n a4 |. Y. M 5 ]( a! Q# ^; D2 j- W0 @procedure SetAnimation(Value: Boolean); / ~ p% K9 H4 H. ]var Inf TAnimationInfo; begin 1 L, P$ n8 A) Y; @ Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - B0 f) t" g' q3 M D, g0 w 原来在这里。 $ V# p+ c& ?2 o. U' O6 Dend; 1 h; p1 h; R5 O " U. w% }0 }7 f- Z+ J$ U0 S8 Q让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 1 S7 `" r5 q0 |! h& [, [. P$ d) o继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 $ v1 z$ [$ \& A1 K( Z, F 7 g* s* T k0 U% V) w+ M9 bprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin + b# g8 M6 C1 Y, {# h+ X8 H if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then ; d5 F) p1 e1 I; P. z7 ~$ @ Application.Minimize 0 v( S9 p0 z* e9 h5 H$ \ ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 6 t. }# P: \/ A+ O else inherited; end; + _5 M ^7 x4 E+ h/ s1 E8 h+ Z 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 1 ~" {6 O2 d2 y5 A2 A, F 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， , G% E; [8 t! R" ]我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 4 `+ ^: @9 ]0 `' k! K: G' T! H注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application ! g3 g) _' p8 v# b& x的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 2 d6 O/ i% S0 e* @& t& k4 B , T0 H4 l( j$ O xprogram Project1; - }8 v I5 ?# K* x+ B! _uses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; , f9 A* n, W) x- O1 ]1 A {$R *.RES} 3 E7 ]2 ]! B7 e6 Obegin Application.Initialize; , [; r9 H' i& M4 t; K Application.CreateForm(TForm1, Form1); 5 |7 d+ c, H' a SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, $ |+ h" r. z& }2 }' w% X GWL_EXSTYLE) or WS_EX_APPWINDOW); % B- s9 c4 Y3 u" H: D) X4 K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; F: r+ J" W- U* V" l ^^^^^^^^^^^ & T' K1 Z1 ?# y6 v8 B" Q showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ & f0 K$ S% M1 Y0 Y! Q Application.Run; end. 以上打了 ^ 的均为添加的代码。 2 W$ W: e5 f" h4 M1 _& U 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： + [5 f6 S# a" b5 |: Y" j 大家也可以试一试不改的效果。 ; [8 G# T0 E# x3 C5 w+ l ' \! q |- |! Q! k9 F8 q' Cprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 4 V. ^' w. V- Y; s6 |# ybegin . U8 j2 f; @6 u+ K9 A+ Q{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then $ q% y b' A# d6 ^2 P" V3 ^8 T Application.Minimize # k! F9 J$ \9 X else} -------------------------------- 注释掉了。 & o( Y6 B1 C5 u6 t7 m0 w2 V inherited; ! L- k+ P U2 L5 ^8 Q9 oend; 6 T3 z1 F1 o$ q# a0 o7 s8 c; i ) o1 a, K1 b: u2 t8 ?5 e通过以上步骤，基本上旧可以实现动画缩放了。 6 Y9 H* S* j, v6 ? . }( L |8 D" q# w$ [BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 9 k& t0 x% ~6 Y' f 供大家交流。 - ]) f( {" p2 p3 C1 c4 H