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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 . g- O" m7 S7 \6 V( H# J7 L7 x 答： $ Z$ U# `% H# w我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, # y7 g. s" E3 b4 L一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 7 x7 D* k- }+ z* U; Z" ~Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 + _5 a, M5 |5 c/ L7 L+ `; `: X化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 * A$ J0 E. y' b8 U. O4 I/ U 可以在VCL的源码forms.pas中发现如下代码： $ h# K& q& V7 S( Fprocedure TApplication.Minimize; 9 \0 f2 }* Z5 H/ f2 {4 u' L1 tbegin % f2 X/ c' D- u2 \) F if not IsIconic(FHandle) then $ s; ]1 I- @2 i8 ~ begin 3 i; g' C- v: \# h* D+ J# { NormalizeTopMosts; . T9 x! m4 I: V7 t8 O; c2 z( X; a SetActiveWindow(FHandle); . X+ `- n4 j9 t' k, \. V ShowWinNoAnimate(FHandle, SW_MINIMIZE); ! K% j$ K/ N. U9 h2 S ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ $ W7 e( M: \7 _6 a& Q if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; . T1 |: A: ]$ _$ [0 d! o8 [procedure TApplication.Restore; 5 g9 H! a7 m4 G% ]begin / a" j5 ?" K1 [7 l2 Z& `8 A& T if IsIconic(FHandle) then & g4 ?- d, B3 P8 C% j W) i begin % C" ^/ }9 }$ z9 ?8 |0 @ SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7 G, h5 K5 s5 c! l! ^ {以下省略} ( D8 i+ S6 @+ i" {; ^end; 再看一下 ShowWinNoAnimate: 7 g2 p' b9 p( s. Q& ~: E$ r procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var & t, @6 c F" p+ x6 E1 l4 h Animation: Boolean; 3 ~1 T N# P8 \. O" Xbegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); ! n8 H0 a1 c+ ]+ d/ F! @2 ^; nend; 5 R) {- m! s; A6 ~3 u, d / P7 h/ C+ s+ ~; K, r( p5 ^- x* V再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); var Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); * ?, h" O+ K7 t BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ & Z% P, E" s/ R" G- m/ y k 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm . R' C2 H3 f& |继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 4 F9 H- Z# J$ f' D5 i* rTCustomForm的。 " X9 o8 {/ J% f; o2 t 8 K7 m. K- M! Mprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); " K- [/ K9 a2 k+ n& Bbegin ) T( i: J- [% J6 x if (Message.CmdType and $FFF0 = SC_MINIMIZE) and % B& k; N% R' b5 T( W: V (Application.MainForm = Self) then # @3 v: t! X: E8 k: U; @6 Y Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 " ?. X: o& V3 `6 B! Q Form1。 else inherited; $ ]7 k# I2 g6 u" s# b) u* ~0 S2 [end; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 ! m, t7 W: O0 t$ B, n8 @3 w很难看。 2 W* X7 K. J# x- x% v 哦有一个解决方法如下： ' p' O2 _ d4 U# x 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， - r7 C5 k) g. U& w6 B7 ~0 C& h我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， : ]1 l- P# z& G5 h1 C然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 4 R: d9 u/ A, {# z4 H program Project1; uses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; {$R *.RES} ! q# ]7 U7 t2 u+ @- [ begin Application.Initialize; 2 {" S. f) ?! a/ J$ k Application.CreateForm(TForm1, Form1); 7 P" w9 ~3 Q* h! N SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, & j1 A2 w5 ]( y GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7 {, Q$ g& N; |/ G4 [! T# F6 [5 J& K form1.show; + e6 f+ N5 @* A! \: {/ {: X! T ^^^^^^^^^^^ 4 X; {' i" M" \ showwindow(application.handle,sw_hide); ( B- i7 J+ D2 N+ B+ q1 L ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ $ K8 U4 h+ q1 T" F' s" Y- w5 O( m Application.Run; 1 h N1 A9 s0 q2 { J0 M9 m& Eend. ) t8 H' j0 o' G. _ 以上打了 ^ 的均为添加的代码。 3 z' K( U1 b6 J! r& D5 w" o9 D$ T * v- H/ Q) n6 `: d( H) T, [5 u 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 , s& q6 L0 c7 l% t- |" x procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin : e3 z$ l6 K" n2 t{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and , ~$ i( f, o- S* _7 S (Application.MainForm = Self) then 3 Z3 ~) e( |/ N4 p% @: E4 J7 e/ R+ w Application.Minimize else} -------------------------------- 注释掉了。 inherited; end; 2 r1 z0 M1 p+ r: e4 t 通过以上步骤，基本上旧可以实现动画缩放了。 , X! N( j: E. ^) O0 q- s; q ! S: v) t L5 J, i2 qBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 & W9 [7 X9 r4 W" w; K 供大家交流。 3 `$ S+ T. E" J$ b- w2 k