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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 + t* y1 i4 d7 N4 q& v 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton ( F6 I+ D, J& V$ x- z/ ]( J的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 r1 u( h! C4 T9 nButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 ! z2 L8 ^4 r6 [ [+ K化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 4 [. l0 p8 @' e1 K3 r2 H) {9 v8 vTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 5 R; |$ t/ K/ O7 m" Q: f4 z' J他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 ) K! b+ V4 ?5 t# h; v# d3 q 可以在VCL的源码forms.pas中发现如下代码： $ L; `3 G9 A" Z# A3 w+ T; H procedure TApplication.Minimize; % V- S7 {) U& O5 Z& k( M1 _! [begin 6 M. {2 u% A' {! I- k* p% l) H: W if not IsIconic(FHandle) then begin NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); . n n- X( w, i; k0 S ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); & j/ d: Y3 Z3 x7 {/ _ end; end; / w5 `5 I: S: G; Y7 c: R procedure TApplication.Restore; begin if IsIconic(FHandle) then begin % G; `# p5 k y/ q( W6 g SetActiveWindow(FHandle); / x, M+ v) k* t ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} 6 s9 V$ l2 a% [end; , ]# m" X5 N6 F: b * ^$ F1 ~% j+ V2 Z* q$ N再看一下 ShowWinNoAnimate: ' J3 I4 M( I, ]) x1 w+ n 2 V( T/ J, w7 \6 f, Vprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var 3 N g% d ^& R Animation: Boolean; begin Animation := GetAnimation; ; ]9 c$ y4 M7 ~# {! W: b, x if Animation then SetAnimation(False); （1） , A9 O3 a( C% C2 X2 ?% M7 z1 E4 g ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); 7 h; L5 k5 n' h# s: x+ d- hend; ) B# {- s8 N+ |: _4 h8 ?8 P0 T再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); var / t+ r* U' @' u- O& G Inf TAnimationInfo; 8 V$ h2 G, `% w2 ~7 [begin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; " ], o2 U9 k3 a3 I. k3 {- c9 S" X % o) t2 X& i0 N. n$ D8 o让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm + n. O8 x; L' m. r: j: T继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 ( \3 ^! Z3 V B; X, ?3 L3 @TCustomForm的。 : W* _) Y/ w6 e i procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin 5 b. L1 Z3 H6 c: j" | if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 9 F. S6 r& c. b4 ? (Application.MainForm = Self) then , |5 I+ I f2 z$ |5 K Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 + g" R- z, |" R* c+ A- V Form1。 9 X- A1 B: b9 X else inherited; 4 x8 k( A: g3 m, f9 G$ Eend; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 5 m7 j& A) B, o- f我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application " ^3 E' ]' x- |7 Y+ g0 W的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 $ ^& J: `# [1 [ 2.更改Project Source如下： $ G* y- z f9 S$ g / y$ `: s8 Q. |/ u0 S3 f3 Lprogram Project1; 8 I: i8 F7 ^% n( W4 N" Q: {$ o$ l 7 [7 T8 B& D" a( I* k' }8 t7 l5 p: euses % S4 b0 R4 z5 S* {" r windows, + y4 T' e8 q+ o4 B6 K ^ ^^^^^^^^^ # U/ Q8 Y+ u* ~% Y L, k Unit1 in 'Unit1.pas' {Form1}, % s7 Q# j c$ \+ X: f; u4 G Forms in 'forms.pas'; 8 i# b# ^6 Y) T, v4 d1 p {$R *.RES} + {9 A" ?! L5 _: d, J7 T% H6 [begin Application.Initialize; 4 Z3 [8 }/ R# E% z/ K% F1 Q Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); 8 [* N& |7 c% ` _0 P0 _ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4 g# n2 o# p& Q1 A+ C- F form1.show; 3 u# o& R; ^' b6 T2 p ^^^^^^^^^^^ ' M2 r& |9 }1 \ showwindow(application.handle,sw_hide); ) L# f* f4 X0 V ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5 ^4 Z/ @) t9 Z3 v& t Application.Run; $ N9 s/ C9 F; } j+ {! r1 cend. 以上打了 ^ 的均为添加的代码。 : F' K% P% ?5 ]9 f1 Y) D 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 + k, b$ s6 \- Z! a4 }procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); + }# ~& a4 {* `' s/ bbegin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; end; + x* J3 a/ t* @- F" ?: Q- G4 D2 i 4 K i4 a% U. R9 o% J2 X5 l! D通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 , ~7 R% _% s, s5 @ 供大家交流。