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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 2 \% S s( h( h6 L4 J" k3 { 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, / O+ t/ d5 ]+ r一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 6 v+ |; ]; w- W4 N9 }8 c也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 . t: N- d7 Y- f) ]4 H6 LButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 9 _- g3 c/ A1 g/ d9 W- _* s化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 2 [: H7 B) f- _' E) aTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 8 k: d2 Z; b5 n. ?5 s) ~) g0 W他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 . c$ H$ O4 `. B8 S 1 Z8 q1 q v& r 可以在VCL的源码forms.pas中发现如下代码： ( Q& W7 v. ^/ e6 I! q 4 |* Q B- {4 n j+ [ ) m2 V7 v/ V: R1 R; P; Oprocedure TApplication.Minimize; begin if not IsIconic(FHandle) then begin - S; L' N. E F; U0 J4 F NormalizeTopMosts; 8 c/ P4 K ]0 ] SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; 8 R( H1 w& x- d$ u) Y/ q$ w Nend; procedure TApplication.Restore; + |. o3 o9 E: vbegin 5 M0 _. x3 ]2 H, a2 h3 ] if IsIconic(FHandle) then begin SetActiveWindow(FHandle); / ^0 m; f$ n3 F ShowWinNoAnimate(FHandle, SW_RESTORE); % F: B6 E3 w) T* b: Z& S* @ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} end; 4 h8 Y1 h: i. D' i再看一下 ShowWinNoAnimate: . g. Y# }5 t. _2 R 0 Q8 H: ^: _4 x9 ]procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); % w/ P0 k+ {9 r# jvar Animation: Boolean; begin }7 K$ b( S) H; b Animation := GetAnimation; if Animation then SetAnimation(False); （1） / H, F* n* K7 i7 ~/ g, t ^^^^^^^^^^^^^^^^^^^^^ ) V4 V: `- N- v; c, r) _ ShowWindow(Handle, CmdShow); & E2 z4 k. Y. Q I [8 @ if Animation then SetAnimation(True); end; 再看一下 SetAnimation: - a! r1 t7 e/ {7 D( ?+ Oprocedure SetAnimation(Value: Boolean); var 2 G: n1 f( }' @4 k) g; Q( E% F Inf TAnimationInfo; 3 }6 r: Q7 s' r: `) }9 ]9 cbegin Info.cbSize := SizeOf(TAnimationInfo); : x. E4 ~ e" g% L# C7 ^ BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ' G# F! c( Y) V" Z' x! ?+ H8 Y ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ! D W# a4 k- w 原来在这里。 " ?) F- Q3 [/ g9 \8 J' Rend; % H3 C$ y+ R# l2 } ( f9 L* `* r7 K8 P让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 " O: K) z8 w/ x procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and * D0 ^+ `! L/ A* Y (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 0 K/ y: S+ ?& ~* o* ? Form1。 else inherited; / I% D0 w; N' ?( L3 Q0 cend; $ H6 B% V1 P7 x! d8 j你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 / E7 Y( [+ j# o7 G' F很难看。 - b. C4 w( J2 g1 N2 F 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 0 ]+ d! R& u& E/ E7 U隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， ! }- w8 f& b! }7 T5 _我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 0 C" F7 b6 D7 P% M注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 0 J' Q5 _9 S& C7 Q: E+ l9 |" H7 p5 M 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 9 o8 e/ @; @ a* g" C program Project1; * g3 S/ R F( w- O, kuses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; ( Y. l1 `. e# k9 M{$R *.RES} / R0 w; a) ?. z% ~1 _( [0 _, z begin " w; `, x: O/ A2 Z o- |- {2 H Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, ' v* M8 G& I( @" ^8 H GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( m* L9 D- H) \" E form1.show; ^^^^^^^^^^^ % F7 A; v" C8 S! s* j showwindow(application.handle,sw_hide); ; Y+ A' n8 n) J' @ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + }8 @$ {! C6 Y r8 T Application.Run; end. 以上打了 ^ 的均为添加的代码。 % T" [2 N& {. s! C1 @. q 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 ) R/ y' a, ~* A# Hprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); - q+ r2 p% @5 T" b( T8 x8 dbegin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and # W z0 L" w% t, z" K (Application.MainForm = Self) then Application.Minimize 1 N+ q6 Q" k: i0 h; q8 V/ A! w) b else} -------------------------------- 注释掉了。 inherited; end; G1 Z$ ]! U3 z6 Y+ G 1 N: w! n' D2 F3 y通过以上步骤，基本上旧可以实现动画缩放了。 & _+ e: m: q' V* Y! eBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。