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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 4 ?# D5 }7 m' _" Z0 g2 u 答： 5 p( c1 Y+ A! i3 U; P( T# N0 N我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, + ^$ c2 H+ J" e9 ]2 t5 W. l, V一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton $ T+ Q5 \- W ^' ? [% [的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 6 `, V4 p: |' u+ [: d8 _& }/ ]8 U化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 可以在VCL的源码forms.pas中发现如下代码： - c4 t) t, m2 |1 |* B- h4 K! E7 Z" R! }7 | procedure TApplication.Minimize; ( e+ C* f3 F- b+ p- z9 x- u \begin . x B5 Z5 H @- J! h9 _$ ? if not IsIconic(FHandle) then begin 4 m- Y2 @$ D6 g/ O NormalizeTopMosts; 8 r1 k8 L( ~1 b: r SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " ^/ N+ c; T* k8 e+ X5 R6 l7 v if Assigned(FOnMinimize) then FOnMinimize(Self); 0 [& O; R, E+ z5 q end; $ T$ H B7 [" A6 B z& V( {end; ( ?/ w. w7 p C. V6 D+ Y+ o, Pprocedure TApplication.Restore; begin , g( [4 ^6 A2 F# W) o8 B if IsIconic(FHandle) then begin SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} . i0 i/ U/ j; |% K2 ]; [# V( e# J7 pend; 再看一下 ShowWinNoAnimate: 3 o6 q/ u( |$ s7 a7 m% c- Z ! p+ t4 K+ k r E3 _' Y5 e, |procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; " C6 A$ _! @* f7 u& qbegin Animation := GetAnimation; % ], X f+ {. T3 T- {8 T# q if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; 再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); $ m( Y0 C+ E- v5 e% Wvar Inf TAnimationInfo; begin + i" l. y* e- R- k3 O% u" q! u Info.cbSize := SizeOf(TAnimationInfo); ; p6 X0 j* r6 @ BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); / o* c2 g6 q4 K9 _8 j+ w: q ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; t8 s" V* B O4 z D1 w0 ~让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm % S* g! E6 Z/ p: ?6 A* C2 V, C继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 2 Y5 l# A/ q8 j" o; q6 W+ [ procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin * T: }: Q( V/ k" W if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 7 N8 @/ B/ ~+ l3 y Form1。 : Y$ Y: ?8 C7 W5 m {% B else inherited; end; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： - T3 b0 @7 s; \* y 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 ( F, i6 w6 o9 h$ X+ a3 ?隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， . y7 X- _8 C* [- e H: l' _我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand , a0 a$ {5 X; z4 c; S注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 8 d2 @: r' L/ V* G& j 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， ( x6 _% a$ D* |7 v" h* P* Y# k然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： ) @4 s: r1 e3 d0 B. f gprogram Project1; & W) n* e6 m" O. H : _3 o6 b/ Y5 P2 S7 i0 s0 s0 \2 xuses windows, ^^^^^^^^^ 5 F' {+ |% S! h. u1 _ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, $ K# Q+ t1 J5 N+ j) r# _ GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3 b; t2 |# V3 @6 ]! a2 s* ~: m% [ form1.show; # d* D% i4 C; | A) e6 I( L5 A ^^^^^^^^^^^ showwindow(application.handle,sw_hide); 6 U/ o8 d- l0 V$ L ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; ) A# w2 K1 i. B# K: Jend. 5 ?" Q- U3 d, Z 以上打了 ^ 的均为添加的代码。 : Z0 q% L* h( ]* F* ? 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 2 F% q2 Z+ ]- \ p procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); ; s ^8 l1 u h( a0 ubegin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; ( ?/ s: i9 y* m; L; L8 Qend; # e4 [( F1 t. f) L 通过以上步骤，基本上旧可以实现动画缩放了。 ' u& \6 B6 G) l! ^+ N BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 1 R' B3 D2 }9 B& W 供大家交流。