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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 : d& P7 |$ Q6 x7 L e 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 9 Q- l3 A z1 a0 I一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 7 l8 E6 m7 q# q( \# _也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton . U& F5 H8 s! `% P. `的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 . v, x& @. N9 r8 `Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 & ]) F& }# N7 V- d化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 1 N! d( G( [1 K$ STApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 ) ?& k, }+ d! k$ `3 O% L C 3 n% N; n. f$ F L8 D! H 可以在VCL的源码forms.pas中发现如下代码： procedure TApplication.Minimize; begin 8 l, V( E/ E3 I' O* X$ m( | if not IsIconic(FHandle) then , a! j& C- o0 K, K: C begin 9 ~2 c- z+ E3 @0 _# C NormalizeTopMosts; s+ I6 o' b0 Q% q* l: f# f6 F3 b: a3 f SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ) m: I% ~+ g! [) `" p4 z ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; procedure TApplication.Restore; begin if IsIconic(FHandle) then begin " } Z% Q+ \ S6 I1 Q; o SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ! V# D. r x1 r! |3 f/ h ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ $ t+ M; a* M2 z# X {以下省略} end; 再看一下 ShowWinNoAnimate: 9 T, Z. T$ t; s; g( |' Hprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; begin , M( W2 B" J5 ?, I Animation := GetAnimation; : {7 Z6 B# F5 ~5 [# m if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ $ r G' a5 Z- d# @% k; j ShowWindow(Handle, CmdShow); $ f) N6 s% @/ n4 x" P& E+ d( _: X. X if Animation then SetAnimation(True); _: p+ R# S# b- N7 T( G. Xend; & E# U0 S: s W, U! ] 再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); ; }; B9 s: R( ]* {" Avar Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); 3 ~, s) i% J+ w9 ` BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 * T. H4 x& |/ _$ ^ A9 Bend; $ C5 G0 Y; x; p5 H* n) g 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm : y: R) L% Q, F8 U3 s! T继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and # F7 L' e* C. F1 u' ` (Application.MainForm = Self) then Application.Minimize 7 X* A! v0 H6 |: f0 A ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 else inherited; end; 7 B9 }9 M$ x! ~& H! B3 y 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 ' E4 h* \6 C) p) V+ g很难看。 ) M) R: ^) Y( L, B' m 哦有一个解决方法如下： & L/ m8 ?. g* \0 e& V7 S 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 2 O: t2 y* m2 }' T6 ^! D! ^& t% T隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 , x! o( w4 }! E% W$ X 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 5 }" |) M; ?; ~( f! k8 P4 n 2.更改Project Source如下： program Project1; 5 ?/ }- r! ~9 E( t1 U7 q. E 9 l4 _" I7 R3 J6 M9 U/ W4 W5 Luses ) t0 G- K4 T { windows, ^^^^^^^^^ % g$ J+ [' J7 ^2 l% o Unit1 in 'Unit1.pas' {Form1}, 0 B4 T0 h; o/ H9 F1 o5 {/ m( A Forms in 'forms.pas'; 0 s j8 {* ^! f) U! g: H {$R *.RES} , J( W6 h' s1 t A " L/ B9 p3 ~; I. c7 Fbegin Application.Initialize; Application.CreateForm(TForm1, Form1); 3 ^, i) u; n5 G) l# t1 u$ u SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, 8 c' Y9 u9 z1 G" F+ J8 z" a$ S ^ GWL_EXSTYLE) or WS_EX_APPWINDOW); ) L4 L2 M( F/ _8 i' R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - K; P& B. d) J4 L3 y form1.show; q6 c" f$ s2 G: X ^^^^^^^^^^^ showwindow(application.handle,sw_hide); & z6 k9 y4 a% N ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; end. 以上打了 ^ 的均为添加的代码。 0 V8 \* A, B) F o7 B4 E0 { 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 $ H: q- ?$ i& B4 B! {' s procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize ) N2 ^4 K& ~$ ^& V else} -------------------------------- 注释掉了。 : m z: l8 B) p4 B |8 X1 ] inherited; end; - d+ N J; o- c! y9 B) b 通过以上步骤，基本上旧可以实现动画缩放了。 ( ?" ]6 |5 [: r! j/ Q& L$ U BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 8 h& q* ^3 h5 W3 A u