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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 4 b; Y! s: N. [' k( h9 L) }4 i& E * {" i( [7 D. _/ u0 ~* c9 C# ? 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton $ h! z: _7 h5 r- s7 Z- V" p) i的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 ' ~6 Q9 s9 C" X! ZButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 R: y) R! ]( }- ^# ?化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 % X8 k8 W) B5 c" K8 NTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 可以在VCL的源码forms.pas中发现如下代码： 6 u1 I) Z5 e9 ~5 \ $ w( t; Z" ~( v: C6 V. ]procedure TApplication.Minimize; $ y8 o$ Z$ |! Q4 B! o/ w5 c$ Ybegin if not IsIconic(FHandle) then begin " B! c( X) b! x; V NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - o) x6 O' b/ o: W6 W+ L if Assigned(FOnMinimize) then FOnMinimize(Self); end; ( j) ^ Y9 W0 l- S: T ?4 jend; / q+ K1 m& E+ Z# F: g # d. E+ D8 g% pprocedure TApplication.Restore; 4 I* ~. h/ _ _( |# Mbegin if IsIconic(FHandle) then begin 8 w. e! C5 n1 k& O: q SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); . |, l3 S- c' F- L2 j4 s ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} end; 0 r( q) i/ S6 f8 J% N. H6 T再看一下 ShowWinNoAnimate: ! b! ~) I3 y# N) v- ` 2 T' E4 v6 T7 p5 d2 jprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var . \" ?# X; D/ B" K Animation: Boolean; 4 k# r. v0 O1 j3 e% _begin 3 a1 x- o" \' @# i5 u, S Animation := GetAnimation; if Animation then SetAnimation(False); （1） 1 Y9 r- S. ?/ n. r a8 _ ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); % E( i* ]0 Y; s& b" o9 Q& Rend; 再看一下 SetAnimation: 1 S# k% O: g" [' A+ F, w * ^" Y3 }/ p y/ o! l( cprocedure SetAnimation(Value: Boolean); w% C- I2 G3 o+ K8 r( \var 0 z: x0 h0 D/ `: \& j Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); . e$ ^/ p( g \, y) i ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7 x- g/ T* o, p9 J 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm : n P: i6 H$ ^3 f. Q3 R. P5 y2 j q: U继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 . K( e9 M3 P6 r1 _: s0 @- YTCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); # C3 d" J% I2 T* r; g' M% xbegin " Z3 {2 ~: _* ]' C% F if (Message.CmdType and $FFF0 = SC_MINIMIZE) and % D) Q2 R5 O6 L (Application.MainForm = Self) then ( C" }7 E/ H5 O8 W( t! _+ y Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 . i+ }. h5 r+ D4 e$ @$ l: A0 V else inherited; end; ( X$ V5 X2 ^2 j7 v0 v9 y% n你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 1 ~3 \# T1 {* G: J7 ~/ T 哦有一个解决方法如下： 7 U8 M8 ]3 T9 ?- p+ { 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 . c: t, Y3 V- L8 n隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， - K. Y1 n- T0 s4 r, v& B' U- x. W我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 B; B9 D/ I& [3 v 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： ! G0 m$ |( J" ]* L7 c- \+ F" L program Project1; 2 ~4 g+ f; Q) m4 B3 V4 H4 Q) m uses & E( e/ q& w( @' @, E6 }( U8 k8 e windows, - L& |/ b7 R; U1 i% v# ^& j+ H ^^^^^^^^^ " L8 ^8 y$ [ @7 x Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; " p2 O% l4 m5 ^- F) Q+ x* }1 f{$R *.RES} begin Application.Initialize; {: G- \0 ?7 z0 @2 ?! Y5 o% D/ V" G Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, 9 c" W4 a, f% l6 }. s GWL_EXSTYLE) or WS_EX_APPWINDOW); ; q/ N0 X3 N+ b" y/ Z0 u ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; ^^^^^^^^^^^ 0 x0 D1 W: [( ^8 V showwindow(application.handle,sw_hide); - T' i- f2 c4 `7 E& V: P$ x ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; end. 以上打了 ^ 的均为添加的代码。 + ~4 G# t w7 T ]; t 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 ! [" d4 J" b: ?7 n( T - ?7 ?8 J$ Z" F# ~5 I Z. p9 Pprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 2 ^+ a2 v' M& O2 r inherited; ' e5 W) ]- _3 K0 ~+ _7 u4 }# d/ iend; 8 [* j* z/ e" U4 E6 r 通过以上步骤，基本上旧可以实现动画缩放了。 % A! a) [* t7 }; F* A BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 1 s3 X: o. v8 D8 G: b