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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 5 ?! |- H) e2 U# v. m3 i 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 - S, Y; R- k% d7 H, t$ {- r也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 1 M3 o3 V! y- |5 P! F# m, _. k; h化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 " A, W5 x2 l6 c F' ?+ K# y" P8 ZTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 5 Y9 M- V) j0 k3 d他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 , ]( ^8 F8 s2 Q2 s6 r+ ~ 可以在VCL的源码forms.pas中发现如下代码： * j* n6 A/ U2 S) D: n0 X J ( G' r( m M2 ?5 e: d ( s5 k% p# m7 [) Y% n( [procedure TApplication.Minimize; " j3 z6 @, u" S0 W0 Bbegin if not IsIconic(FHandle) then ' s8 x" c* ]6 P6 ~$ w begin 5 v7 R3 N' {# ?+ c: Y+ N NormalizeTopMosts; & Y5 l$ O6 t( R F7 a' W SetActiveWindow(FHandle); + y3 h; W+ R. K$ C ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; # m# c8 ]6 v( W O6 ?6 {+ E5 b yprocedure TApplication.Restore; begin $ m+ Q- k4 ~8 Y) z% y if IsIconic(FHandle) then begin 7 p# i$ r& q0 W, ~2 X& }2 i SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); * s# y6 p, o$ K9 l m7 V8 n ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( C: I, R4 h0 M+ i: _4 m$ ?, H {以下省略} 7 f4 l* N: r* I( u0 U5 u& ]end; 再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var # k, A0 V1 k* e, j; u/ K Animation: Boolean; begin Animation := GetAnimation; ) A E6 I3 ]) b) k' X5 J if Animation then SetAnimation(False); （1） 3 E! Y7 e" t* U8 S ^^^^^^^^^^^^^^^^^^^^^ 0 I+ |) [ a9 F! E) O ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; ! H) p4 |: }& d% T! D5 I ( ]) T7 P7 I6 o+ b再看一下 SetAnimation: . W6 C2 @4 `/ @- Wprocedure SetAnimation(Value: Boolean); 8 y, r; B: s" a( G) `var Inf TAnimationInfo; 2 W$ T; \$ x9 j5 M5 Fbegin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; ; c2 I6 |) K7 j% {' k) I4 c 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm . }3 y' _( W* e6 F继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 1 ~+ K: k, c4 e! G' Oprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin * t; w# M% v0 {& t if (Message.CmdType and $FFF0 = SC_MINIMIZE) and % @* Y8 M+ @& \/ r4 s (Application.MainForm = Self) then 7 D5 ?/ d3 Y9 M6 B% b* q0 R/ B Application.Minimize ' ?$ H7 G* F9 \! D# D ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 5 i/ L% F% S9 C0 ?" j2 g- } Form1。 else 1 \6 {) |/ `- ]0 x- ~0 Q7 i inherited; end; 6 x. H6 v/ l; I8 V- X8 y你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 / u3 j: e; B% J+ \/ x4 s, x! m很难看。 哦有一个解决方法如下： 5 K S; x7 I6 b* d& O- W 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 1 c8 @/ L: V- o( U隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand " V. c$ w* N3 ]2 T" W8 f5 r4 i2 ]注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， + b) p9 s1 J! {) z% k5 e然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 1 T( I) e+ d5 K8 r+ u program Project1; 1 [0 r5 j. v# s$ k) X uses windows, K) M# w* z# ~, [ ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, , s# b( X* x% {3 c9 }" t. p Forms in 'forms.pas'; 5 x3 y( f# {" H5 ^ {) _ 7 g. K* o7 |6 M{$R *.RES} 4 ]5 E$ z6 _6 Z1 V* B* ] C+ v8 W# W0 G% m, ybegin 0 l/ V: q. L/ D! Q Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, $ I: r& I: h, P GWL_EXSTYLE) or WS_EX_APPWINDOW); # r7 }& N; n+ a# m" \ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6 ^8 b/ X$ Q1 I- ~6 A' y form1.show; b) ]$ m0 T& q0 t' \ ^^^^^^^^^^^ ' U1 |% u' l+ L5 F" W showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8 L1 n' B: [3 i1 B& m) H9 f Application.Run; ; h5 k' B! X0 D; p# E, O. F% ]end. 以上打了 ^ 的均为添加的代码。 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： # i0 P# m( `! u* v 大家也可以试一试不改的效果。 ; k6 D2 G; v' \& f0 H procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 2 L4 Y! R- z5 m7 o# \% obegin ) C! W( M3 B. z, c$ ^: E{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and ' ~- C' Y2 L6 l$ _7 b (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; 4 k5 B, S& T: B* Y/ Z( Dend; ( b% E# l9 ^8 P! B 通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。