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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 ) A4 ~2 y! }& o ]3 q; a4 w 答： 8 u& i. ?& l' {! l @' P9 W) `我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 ' z4 @# x# R+ s. `; z也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 1 ] V# Z: W5 b$ f# k9 W化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 7 C; N. q5 J9 B. }+ YTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 % U4 s0 M6 \' x$ |; {/ c他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 - m; N/ r" N% ^5 G' h 可以在VCL的源码forms.pas中发现如下代码： 4 E! g- E1 P, h( | g4 c: n 4 S" F: w( }- M: F+ h! V& B. Bprocedure TApplication.Minimize; ( Z" ^) c1 e7 obegin if not IsIconic(FHandle) then begin NormalizeTopMosts; SetActiveWindow(FHandle); * Q W4 F J: k6 m. ]7 B T9 i ShowWinNoAnimate(FHandle, SW_MINIMIZE); 9 |8 X$ a4 v6 i E ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' M0 h( \6 |* v# F- | if Assigned(FOnMinimize) then FOnMinimize(Self); - x/ x) r0 A3 |- k1 s1 Y7 C end; ! Q: ~2 z$ |" B& U; x: ~; I y3 h; ^end; ' d% d5 o3 ]* V d3 G: `& x7 iprocedure TApplication.Restore; : ^# K8 j" @# M2 [" G) o% p. Y* x0 Obegin if IsIconic(FHandle) then & C' |; I- ~& l! ]! R$ n$ Z begin - E. L- o( c7 l* S9 b/ D; O! l% M1 t) e SetActiveWindow(FHandle); 1 H. U5 R/ v4 M- n ShowWinNoAnimate(FHandle, SW_RESTORE); ! S2 ?: T/ a5 `: f, ] ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} ! w: [) K% k, M, Bend; + M; b4 `; ]! a; f * S8 [/ d W& [+ f6 v! _' x" s8 D再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); $ p! e6 r7 e. [* W: hvar / ]1 q# c( ~7 a/ C Animation: Boolean; * n" h6 x# K1 Hbegin + }1 Z7 b' l. a2 U; @0 T: n G Animation := GetAnimation; if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ 7 z r6 P3 r3 m' ~% p. \ ShowWindow(Handle, CmdShow); 5 ?1 S, F3 h+ C+ j( e if Animation then SetAnimation(True); end; 3 Y1 [( i; A( D$ R# E! y9 F7 j再看一下 SetAnimation: + m& U0 N+ K. C D; D! G2 I! xprocedure SetAnimation(Value: Boolean); var 9 w# V5 b6 s8 T& L Inf TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; ' H/ Y$ N8 t4 H SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); . t4 v! l7 |, }4 J) l& x ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( H9 H! A/ P' ^+ i+ F, o8 q: F 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 6 r* y! C- D4 S继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 9 R3 s8 z8 Y: g$ b1 ~begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 7 |7 v! e U+ d L8 j0 h1 A. r9 F b (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 " [& ^/ x a7 Z9 m, l Form1。 else inherited; - h P0 r9 l. S ~( ]5 nend; 7 c8 v( n; a; T2 ~你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 . F; [# q& J' w4 b0 q$ X很难看。 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， % y) v7 w6 ~$ w% n% `2 J我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 7 i% ^0 k1 N/ \) E6 b, G: }6 }注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， ) X1 L% J6 S3 k; o( U, \" }: j [然后将Forms.pas作为一个新单元加入到Project中。 5 W$ [7 j. L% K& s9 F' Y$ L 2.更改Project Source如下： % m7 Q# P: y3 u9 ` 5 g& x4 ]( n) H. l% E5 A1 sprogram Project1; uses windows, ^^^^^^^^^ @2 |+ h. J7 Y Z( I% f t Unit1 in 'Unit1.pas' {Form1}, , a4 q2 O- M3 t5 _ Forms in 'forms.pas'; 0 n, a. R3 c: g0 } L4 _2 J+ M2 h, k{$R *.RES} + L h8 W! L! l. d0 V begin + _ M2 s: l0 @ Application.Initialize; 5 D. U n/ B+ u% i. F8 B Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; ^^^^^^^^^^^ showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7 S, N- Y! L' t% j0 S* \8 |8 ?% d* M5 [ Application.Run; - B( d0 m" ^' N& Z" T- gend. # p0 U/ Z) [+ }6 q5 K2 _; V 以上打了 ^ 的均为添加的代码。 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 " o4 X0 ~% E7 J+ m ] $ `* a& j; }* H5 ~6 eprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then % P% M2 h. P" N' l# ]. n- A Application.Minimize 9 k! [# I( o. ]8 J0 r, L else} -------------------------------- 注释掉了。 * K* i# `7 v& \ inherited; end; / M; D1 m6 }& W% k# A' I/ r 5 E; J: n) T3 k) X6 Y通过以上步骤，基本上旧可以实现动画缩放了。 ! J& E* _' z7 e% V w9 } BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 ) E4 E9 Q& g! z1 w6 P) X) j