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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 : ^3 c; Z7 U6 ^ 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, % A S# B) V! z5 L$ n& }一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 . {( s- E1 X2 q/ `2 ~1 b也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 6 T; x. s# p7 p( x" |* cButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 0 J" a% o' f4 X化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 $ P: e9 {' {. Q% w+ ~% `( }! d . K1 R9 p$ V9 Y3 L) F Y 可以在VCL的源码forms.pas中发现如下代码： procedure TApplication.Minimize; begin * x+ ~; y) g) U) U; t3 M/ \ if not IsIconic(FHandle) then begin NormalizeTopMosts; , a$ ~2 j. _ P5 X2 S SetActiveWindow(FHandle); # k! m4 P* k. P9 h* ?2 f7 j- C ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 q- k! d( |* K* V0 ^ if Assigned(FOnMinimize) then FOnMinimize(Self); " T6 G; L' a- P- i end; / n' E9 d; y% Tend; # t% R$ N/ S) y B % ^, o/ Y# k* Q( q; `+ r' Pprocedure TApplication.Restore; begin if IsIconic(FHandle) then 3 e: [$ |& h1 y0 F begin # J$ D4 h- ]( U$ b* Q0 s SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ # ~/ \( e$ Z g: C2 i0 d {以下省略} 0 X$ K5 C# {7 P9 }end; 6 G* ?6 E7 `6 N+ r# l+ i! e 再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; ; s' X* a# j# y/ `/ abegin Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ 8 v5 g, V" W- t; h' O5 ^ ShowWindow(Handle, CmdShow); 4 x3 a1 M0 r- C6 o8 t8 p. x if Animation then SetAnimation(True); end; 0 Z8 ^# ]% @% I; K' T$ I 再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); 7 ~( y4 r" m3 `" Wvar 6 X- F5 D3 J7 m Inf TAnimationInfo; begin j, V. |- z) e; w, r Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; 2 D/ J! {/ O: l: W7 ~( a SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); . _' a0 Q' a& k. _) E( f! X2 a! ? ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; 9 W2 w. T3 d/ r. @$ c 2 R/ E& j: C8 s P( {4 f8 L- K1 W. w5 J让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 0 m2 N2 \( D0 C' v! m4 Y5 P继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 , @% h4 V% W. P8 l; XTCustomForm的。 9 x& t; R y$ k9 s; y procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then - r8 J n# @! ]% `3 C1 d Application.Minimize 9 I+ _+ x" J6 W3 U4 ` ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 3 p- ~0 @% Z, u8 B1 { Form1。 else inherited; : |) e1 g# b4 n* g# g5 K( G/ b1 aend; 4 t: X8 ] A1 a! T3 o 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： $ @; K6 e+ j5 r 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 9 z3 Q: h- O' Z j+ g4 Y, R隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 7 L+ {" i7 |, ~然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： program Project1; / V/ G5 z( o4 w8 L3 w$ ? ( L1 A0 [( D7 N) fuses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; ' i# O/ I2 C3 F, w! D; i. D {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ / { H/ G3 k' h$ r, w; Q form1.show; ^^^^^^^^^^^ 3 f) R3 Q8 X K7 L; r2 {5 ~$ u showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; ; j2 @+ ]/ z. J6 K, Wend. ) k5 Y. S6 V: {5 d 以上打了 ^ 的均为添加的代码。 : c1 H6 _6 t4 v } P% F; v0 E 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： ) ^& T& u5 u o+ Y" p# Y 大家也可以试一试不改的效果。 : G6 }; D3 n; S7 Z5 q8 c* mprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and % Z" d' e* z. K w: V, j, V5 K2 \. C (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 * Y+ s: }8 u& a) F0 J8 G inherited; 0 c9 K: ]/ S% p; P8 P) Yend; 9 b" S! m* Z# C# B通过以上步骤，基本上旧可以实现动画缩放了。 4 A$ `3 y9 D& c: D$ e4 j. e BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 ) X6 m& U. m, V& _. |' u 供大家交流。