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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 , v/ K G+ r, x4 m( s 答： - P% A7 y. T9 A, n2 p我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, % c3 _2 C# _' q7 n3 n5 c一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 - ~' V/ e. ?: S/ OButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 - `; A% d# n" H! t化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 / \; s# j: T% t) m* T 可以在VCL的源码forms.pas中发现如下代码： procedure TApplication.Minimize; 9 m8 ]2 g7 l, zbegin if not IsIconic(FHandle) then begin NormalizeTopMosts; : U) V% `) s0 b3 w SetActiveWindow(FHandle); ! o# v* A$ V* A8 z9 R ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ , M i8 T$ S& z' P2 S/ @" `# ] if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; # d g$ c4 b' _; V/ A4 n3 n procedure TApplication.Restore; begin : P5 A) @+ N. X% ]+ q, p8 Z if IsIconic(FHandle) then begin ' O& x3 G: R, l) {6 t+ H0 Z SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ & y8 d: g& W# d$ r- U7 c {以下省略} ; p& [) H4 x: P( wend; + |9 s6 _( ~+ @2 \+ i3 e0 t再看一下 ShowWinNoAnimate: " M0 y' T6 w+ A0 L 0 C. C, f8 X/ tprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var $ t4 U' f' {" u8 C/ a Animation: Boolean; . N+ f% {: d) z, _ m& pbegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ 5 f& M* A4 ?' r6 z) f. n9 R$ q ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); $ d- `$ m+ d% P: z4 nend; 9 u7 e4 M4 y3 o& A再看一下 SetAnimation: 2 U0 X! I* {; O2 T ( `, c/ ]3 l. m* V5 B3 z* u4 X% Q2 |procedure SetAnimation(Value: Boolean); var $ G4 N' x5 F' D/ h) ?2 ` Inf TAnimationInfo; + t7 B+ _. m3 ?" n0 n0 v5 obegin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; * x8 D/ g f c SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); 7 _5 N2 L+ U" x$ k# \, R. X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; ' z: d, z# F% Q, G- }6 _3 _ ' n4 C/ H$ z( a2 h0 q让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 3 B8 @" \4 B* b6 V继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 8 o1 c+ C- M3 f6 H" N procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin - y' X" \0 N1 L+ [1 l" l if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 * }# i- N1 g5 e Form1。 else " s V& q# l' t) V+ L. k inherited; 0 u7 S2 u7 f0 U/ j; G9 e( mend; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 $ _# W7 d' t; O( B很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand $ u. W: T/ t$ [$ N注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 ' y7 }' c# r+ o8 p- \' k 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， # [1 t' v+ l0 q& ^! U然后将Forms.pas作为一个新单元加入到Project中。 & K8 }. V$ @/ ^( S7 Y9 a 2.更改Project Source如下： % X% L) d7 n# X) c* z2 m program Project1; 8 ?3 e/ f8 Q' Q9 r0 R% Q6 `( P- d uses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, ( S3 I/ ^6 T: h. m" w* P% `/ { Forms in 'forms.pas'; ( R6 z. _' r7 v0 k; V) I0 L7 a{$R *.RES} " ~9 R) t4 e9 s6 {- N 4 E0 O/ A8 K3 f; y O5 Q5 n$ v0 d* kbegin Application.Initialize; Application.CreateForm(TForm1, Form1); & a& P5 f; @& m* L SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, + Q$ [) K# O7 j GWL_EXSTYLE) or WS_EX_APPWINDOW); " p$ D. q! r$ G# [( K3 x8 C; n ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8 @2 I" p4 T) Y, p form1.show; + f% S9 \+ Y2 v, b ^^^^^^^^^^^ ) Z' ?; w, e" v y! h showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; * X/ j7 ]* @6 E8 c; Mend. 以上打了 ^ 的均为添加的代码。 9 i7 F9 z. S0 P/ q+ h L- ~) R, p 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： ; D% }# X0 n5 e) d 大家也可以试一试不改的效果。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and : y+ f7 H- B# j9 y8 U: o1 D (Application.MainForm = Self) then ( P5 a* }- [% a. x Application.Minimize else} -------------------------------- 注释掉了。 ' z! k4 v. i g inherited; end; 7 m0 a9 a6 M7 i/ c" G- Q/ @& V * n/ d$ i: P4 F6 z通过以上步骤，基本上旧可以实现动画缩放了。 ) M2 r) \ J! @* a7 P% m; nBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 $ g- C$ l( W1 v" t& P 供大家交流。 ( S! z( l6 z5 q7 @4 W- b