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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： # s3 i7 Q/ |/ s' S5 K5 a我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 ) r2 }+ `4 @7 x4 _也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton % b" W0 D$ \" @- z3 h" Y的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 5 S m& }& a6 a6 _Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 ' C& t! O& K1 E- y化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 * e. ~5 V; e( X) V2 ~( z- [- f$ YTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 " y/ ^; l$ K# e1 `" F 可以在VCL的源码forms.pas中发现如下代码： & ~( A5 _4 W! {+ d% `" b + {) A) d# z- N* A# j; }1 k# V: E4 n procedure TApplication.Minimize; 9 X6 e& T5 i; o* I! i& Wbegin if not IsIconic(FHandle) then begin NormalizeTopMosts; 1 Q( X$ E8 X" k* n' F1 y* B; y SetActiveWindow(FHandle); - k% |3 y2 @1 B6 q ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; + e3 f* w1 E' Q& B. S. aprocedure TApplication.Restore; begin 9 t2 c" p* ?# |9 e if IsIconic(FHandle) then begin - o, n) D; t# x/ }5 i2 | SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); : r# ]5 q/ o7 k4 H# s/ }7 t ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} ! `6 L8 R- E- ]) d6 r; k, x% L2 fend; ! F, K$ B2 ~, e3 U+ Q. I1 v, G再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); . Z E7 z5 y4 V6 Z( e2 Bvar 0 j9 S$ P8 ~+ L; [ Animation: Boolean; ; d4 l7 E0 J+ }* |0 c8 t5 G# Hbegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） Y' ]( r5 t, \$ z+ I+ U. f; j ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); " v* T$ O8 u: \. N% H" m0 j if Animation then SetAnimation(True); end; 再看一下 SetAnimation: $ J% A' n( E( r 0 q; o4 F( [. o7 Y' Z# Rprocedure SetAnimation(Value: Boolean); var ( T# ^( Z* }: T! J; C* d Inf TAnimationInfo; ) o) F+ q8 L: O$ B7 Bbegin & N' I |7 u5 i9 F+ f, y( V Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); 9 j- w d# X9 T ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; 6 _4 f5 A/ n0 l7 \ b让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 " M) o- z- O) E( T* G4 {' PTCustomForm的。 # L) w# C% e0 K/ a3 l procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize 0 _/ Q2 R7 D6 n6 A5 E# N8 [! q: a ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 ' G; q( N) v) K Form1。 ) H- _! Y$ x7 t- i' r) u4 ~% c else inherited; end; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 ( v! e, v$ d' u* D0 M很难看。 9 \$ r$ Q8 Z R+ e 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 6 j( _; ]; }( Y: m0 \6 o. {隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand - h, l* m3 q$ p6 K3 W注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application ! H \% y5 w# }2 c0 f+ j/ p5 S的窗口了。具体改变方法如下。 . Y1 w7 O. U, S0 n. L' Y 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 ) Y4 `( m0 p4 C I) L9 Q 2.更改Project Source如下： & m9 `' T/ W- G$ Sprogram Project1; - C8 O+ G4 z4 z6 w; o$ B# s ( f6 t. H8 O" ^" K' t9 U# guses ; d# D% |0 y w windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; : ~3 e- R' J, ^, a ' \. n8 X! K% D4 O{$R *.RES} . u, k5 X: J) \$ ~ 7 Z* G: r9 e' K& Vbegin * T8 Z) v( C. V; S6 { T7 w Application.Initialize; Application.CreateForm(TForm1, Form1); q, o0 o# o, c y# J3 i7 ]0 b7 w SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( n5 {6 ^0 j! J- T V: H form1.show; 1 K; |( M2 e4 r6 |, ` ^^^^^^^^^^^ 4 l2 G, V# l9 l1 m7 w9 a R9 T showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; end. 以上打了 ^ 的均为添加的代码。 7 K+ x. ]" l i' ~8 F5 k 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin 8 I& X) m2 b/ T{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 4 w( w1 |+ y6 v: r$ k2 A (Application.MainForm = Self) then 0 F' X- y- S- w q2 L: m/ u Application.Minimize else} -------------------------------- 注释掉了。 9 r; ~$ Y* C& ^- q: P inherited; ! B% g2 T1 M n/ G# \2 o# f! T3 Jend; 4 S- u& I8 g; }: z% `0 T% b 通过以上步骤，基本上旧可以实现动画缩放了。 2 u0 E- H4 V; Q* r+ h- M! s 1 X/ O4 X7 W8 E1 H/ P* M6 V" uBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 9 }6 r' u) W7 ~" G 供大家交流。