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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 4 `0 j9 \5 g" G C2 K" u4 m% s" ` 答： @$ K6 V5 n& q: q! I6 Y& N我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, . n5 Q- f2 k2 M2 K- ^一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton ' ]8 L9 R" ^ n# g的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 ) c. G5 x1 S7 C. ?: \' s 可以在VCL的源码forms.pas中发现如下代码： 0 a2 o- K% ]2 X- l procedure TApplication.Minimize; begin if not IsIconic(FHandle) then 7 k7 l7 P# p C& Y begin NormalizeTopMosts; & I& s) B! f, w8 a- z2 z SetActiveWindow(FHandle); / k5 G. `3 p- ~; F0 _% r ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; * V$ F5 H" G# H6 u3 h3 V5 V& {end; c4 q$ f7 A& M& \! `; [$ b procedure TApplication.Restore; ]: w U1 R u6 u6 Jbegin 3 m9 T2 ~" z" c0 U* V0 c if IsIconic(FHandle) then + ~, f( y+ u. `" C2 ^" i) X begin SetActiveWindow(FHandle); 2 t" g/ K/ y8 d; A- k. o/ U ShowWinNoAnimate(FHandle, SW_RESTORE); : K5 s% Q7 O' k3 ^! l% A7 M ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} : u* t$ E! b9 L8 }end; 5 O7 Y" j/ W8 `, P$ s5 Y ( F, G" v+ W: f' O8 E- M+ e- W5 S再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var 6 L; J9 _: l& u Animation: Boolean; begin Animation := GetAnimation; 8 V; E- z9 s3 r$ R4 O$ l9 O2 r if Animation then SetAnimation(False); （1） , I; Y5 y; `8 O4 G# w8 b; z ^^^^^^^^^^^^^^^^^^^^^ 8 M8 ]# t' N0 D6 R6 w7 L ShowWindow(Handle, CmdShow); 6 t% `0 b; `* w( u6 | if Animation then SetAnimation(True); end; # G: M( i0 `6 I, t再看一下 SetAnimation: ) ? R ^9 O! y1 a% A2 \7 fprocedure SetAnimation(Value: Boolean); var Inf TAnimationInfo; ' H+ R5 a/ @. bbegin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 9 X! O/ [' u9 h4 q" l$ J (Application.MainForm = Self) then Application.Minimize " T7 ?$ {9 G, `7 R ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 - D: q8 K0 B1 q) V+ M7 z" S Form1。 0 n! k5 K) O- H2 n/ W5 G* ^3 ?+ g else inherited; end; . s3 N* V5 ~5 f) P: A1 a. A6 n 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： . }! |! a7 Z5 A/ ~9 M e 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， + B' g9 F+ {7 i/ m' B. k我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 0 b% W; \1 p, r: e3 V6 x o- Y% |的窗口了。具体改变方法如下。 # w; Y7 P+ ] z6 C) Q 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： 1 z8 z; o* S9 U% E; I b : x( g: o) ^9 \# V8 T! o2 G9 gprogram Project1; : n0 P' ~' L( |. u% p4 @uses # w" q/ G: z) k7 A3 g windows, 9 D7 L2 }& q% ?4 J, E8 ^ ^^^^^^^^^ + C3 ?* ~& C* X7 w Unit1 in 'Unit1.pas' {Form1}, ' F5 q0 F3 I$ _/ _& l9 R, ^8 |4 Y Forms in 'forms.pas'; 6 p6 ^, k6 A9 k* o( Q {$R *.RES} : o$ j {+ }* S begin 7 Y: k. f% A" ^+ l Application.Initialize; Application.CreateForm(TForm1, Form1); ( g0 P5 D$ k& h SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' h% [8 |. b9 [; e form1.show; 8 J+ J% `" j4 p* e3 H+ ] ^^^^^^^^^^^ showwindow(application.handle,sw_hide); 7 d4 x3 R& w% w ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ / n8 I) V* ]0 R4 D Application.Run; end. 8 ?8 C+ C' o3 v# Y, t+ ] 以上打了 ^ 的均为添加的代码。 ( q, G6 m* r% V8 O4 f 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 4 H& i- V9 Z: l! ?3 _, B procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin ; B* z1 ]8 f# h: p9 a0 h{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then . Q3 n5 M( a% J/ b' c0 U Application.Minimize else} -------------------------------- 注释掉了。 inherited; ; \; P; S, c2 n. j# bend; 通过以上步骤，基本上旧可以实现动画缩放了。 - h( {0 }" N8 Q6 Q ' v8 `' n* Y: b1 xBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 , m7 v' c& W! g/ h# B4 P1 ]' | 供大家交流。