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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 ; Z' w" N F& R9 c" `( K 0 ?9 s" l: s' f3 O! r* W 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 4 F: m2 m( M- ]. T一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 - l& }: h, Y9 f+ c1 o! z, m' E也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 # k' Q8 a$ ^' |' a6 [- vButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 ' i! a' j8 ?0 ^ Y; F* K* N化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 ! e5 U9 W0 H( j+ C } % S. E: M: i! J5 G5 i% g 可以在VCL的源码forms.pas中发现如下代码： A* v' i4 A1 D3 Z: @ & K O9 H0 T7 l: [! F3 ]- kprocedure TApplication.Minimize; begin $ ^0 V/ v- m6 e: X if not IsIconic(FHandle) then $ Q2 R' t. i6 p( `3 ], } begin + k0 u1 H8 k+ _4 i1 G' H3 ^ NormalizeTopMosts; SetActiveWindow(FHandle); 9 b% B g+ w. {9 I; t0 D ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); / E3 f8 ^4 p$ D& ^ end; ; |; \5 a) K, C5 K2 N0 m; l Uend; / [" y' ]* E! x: F7 O, Z1 C9 m. E- w ) O& _% a: `) K8 {. Iprocedure TApplication.Restore; begin 1 t, Y2 q# t# P if IsIconic(FHandle) then " e5 ]3 V8 @' E3 u begin SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + Q& ~- w" L+ s4 n {以下省略} end; 再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; 6 e6 d+ Y, q6 _2 kbegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ : i0 r0 k1 ~7 E. E ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; 0 `% i% U. \5 L' f. X2 v7 ]/ h& B 9 F9 e) v+ F% A J& H再看一下 SetAnimation: 9 q' w6 y, R3 s / y: \6 O+ u2 v: Wprocedure SetAnimation(Value: Boolean); var * f8 A! M1 T: v' T+ L+ Q# N Inf TAnimationInfo; begin / E- P2 G9 t0 e- I( `, H4 Y Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); 7 i/ L0 t* C. I ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 6 J$ m" U2 ^/ X) E. f: m: A5 ^end; O2 N+ G( z5 s5 A! Q让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm ' {% O. o2 b7 ~继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 9 \2 V }( e; J& j( `$ CTCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 4 t$ a$ O0 W; r3 J, k& ]4 }begin & w' G/ @0 A* o" x if (Message.CmdType and $FFF0 = SC_MINIMIZE) and . f! h8 V0 G* p, ] (Application.MainForm = Self) then 0 \' {6 r+ s/ e$ J9 \5 E' z! G5 U8 Y Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 else inherited; # K! a3 l5 K, L5 F0 [1 ?end; : V. ^7 R, Q; H. G# ^) v. L `你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 8 W9 _# j9 \; t, K很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 & r" H$ I/ J5 G: L9 G隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application ) o) s3 t! U+ o! s" j) R% B的窗口了。具体改变方法如下。 7 I* b- `% f, `- k 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： - X" O- {% `" o6 r 9 k5 f$ c9 l" v! G$ Q9 [9 Gprogram Project1; 6 `$ h" b% E; H; D* S' @- Luses % ?% Q9 X4 O1 b2 J+ E: c/ |& R/ `/ u windows, ^^^^^^^^^ 9 B& Y$ a- l6 U: u( V) [1 J Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; , _/ O9 h7 G) ~- z: `! ? , P* i5 X( q& h7 ` W{$R *.RES} - b- T. I/ J' q. g, q begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); & K0 v% B4 w& X9 a. O ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; ^^^^^^^^^^^ % j. Q/ f' V9 E6 ]: p( x. b showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; end. 以上打了 ^ 的均为添加的代码。 9 s0 B4 Q" D( Q( l1 x# c 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： " i/ {% U( c- X% z- W! W 大家也可以试一试不改的效果。 4 P2 J5 M7 x7 i a: y" O' T+ ~procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 4 W; p# m0 |6 C/ @! q9 cbegin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 5 j H5 Q& [ C% k8 V (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; , H q( C, [' S# v* zend; 0 L) V+ g7 t' n通过以上步骤，基本上旧可以实现动画缩放了。 1 V. Z* k7 p* {+ k3 m - ]/ s: H; l- e, @( s+ CBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 4 Z6 A+ G" ^( D6 j. G0 n