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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 1 L0 {4 D) R% B0 F: g$ s& K5 A+ } 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, / u! M! D/ O" D一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 " t$ q6 `# r" [8 W* TButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 0 r3 Y% J' G \ T( tTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 . A* E. _, [1 }2 z; e) H 可以在VCL的源码forms.pas中发现如下代码： # C" r0 f( ?- O' t/ e% qprocedure TApplication.Minimize; begin 7 o9 p* a# y' @$ n; o) x) F% h if not IsIconic(FHandle) then begin NormalizeTopMosts; O, _$ e5 H$ m2 O" s$ c SetActiveWindow(FHandle); ( e6 F% x& Y3 b; _) ~# p ShowWinNoAnimate(FHandle, SW_MINIMIZE); ; T& p/ g# `+ S/ ?3 z% W ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ % j( j) W6 }) P' N1 x% t if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; : @6 K1 a1 W1 F4 u% X5 b - W/ b% w/ r: d9 e& sprocedure TApplication.Restore; ( ]/ U, u# V) j, {- {7 w3 \begin if IsIconic(FHandle) then ' q* ^ |* D; q+ `! S. S m begin 8 F$ C" k6 O: w% s SetActiveWindow(FHandle); ( m, W6 k4 H+ I+ q2 G& l$ ~3 B. _% w# h ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} end; 0 g* x. T W9 A4 v7 c再看一下 ShowWinNoAnimate: & j l! q: `( R : z- [# J+ P) L3 r9 Qprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); 0 G3 Q! N% n$ G. @7 |+ ]& @var * [6 y7 v* _" r Animation: Boolean; 5 _1 v8 k' y2 N+ h. I9 a( fbegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ! X) A; [! \/ ^" }- \- { ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; 再看一下 SetAnimation: 1 W; t9 e3 e0 }7 _: r9 Wprocedure SetAnimation(Value: Boolean); var / R# x4 A% s5 w1 R m Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); 9 G! E! f! _3 D- @) k c BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); 8 Q( u! E4 c1 v ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; ( K" r% ]+ W1 c# Y( C2 x ! w5 g2 v( [( a6 k/ P6 t7 [让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm ( C( q$ o! I! h: ]. r继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 ' b+ O) n# z% O% {TCustomForm的。 / {. x# r! K. ^( k2 S! yprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 5 f* _ G5 \6 v5 g$ h8 x+ W0 gbegin 6 N% T2 b& v5 x. r if (Message.CmdType and $FFF0 = SC_MINIMIZE) and : \- \, L* L! D% ~. r$ Q- A* z) u' L (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 else inherited; ! D4 E: F# c. L; i9 Eend; - Q+ l, o8 F4 O m 4 U$ V" ?1 _$ O2 _. \你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： % l- J4 n6 o5 U) A 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 1 D" E" L6 {1 W隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 8 d; k! Z t' z( a然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： - [2 i) ?# U% t, D4 I3 E" v; [ 1 Y" ?) H4 s9 Fprogram Project1; uses $ d* J: ^, f( H5 |7 ^* L! B% T" K | windows, ^^^^^^^^^ , f& n9 M/ W& n8 a9 Y) ?7 V Unit1 in 'Unit1.pas' {Form1}, ( A; p6 R V& A Forms in 'forms.pas'; : a: x4 T/ D, j7 Y+ X {$R *.RES} begin Application.Initialize; * }! G X" f- J/ T Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; , @ @0 ] v, s9 o ^^^^^^^^^^^ showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; 6 n: A, u; H# J, P' r. |end. 以上打了 ^ 的均为添加的代码。 : _! C# r4 h/ N9 p$ @' d6 \ 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); * K+ S9 y0 x+ _2 vbegin + {" X( p" k) u) A% p3 k{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and ; {3 M) [3 w+ \ (Application.MainForm = Self) then + n( D5 V! i* Z. u* Q6 ~+ I5 N Application.Minimize else} -------------------------------- 注释掉了。 inherited; ; g7 o8 p7 M+ w+ w/ O6 Zend; 6 b1 E2 J# p/ H2 B 通过以上步骤，基本上旧可以实现动画缩放了。 # D( M* x6 c' n2 _, N3 z K# l. ~ BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。