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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, ' X6 S; s9 j! g' o3 f0 u一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 - Y) l4 P$ ^- Y/ n5 a也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton : e1 k- V# j+ Z/ H+ T的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 # m7 M1 D- r. e- E0 e' k- oButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 , a0 x. R4 _' q 可以在VCL的源码forms.pas中发现如下代码： & o2 D' F8 I7 }* n8 J) O) E 7 D' u8 a$ M2 V! H1 I) ^5 ~procedure TApplication.Minimize; & |- y7 B% ^, C& [. v5 `; Nbegin # @ d; u `. @" q& u$ r if not IsIconic(FHandle) then begin NormalizeTopMosts; SetActiveWindow(FHandle); ' h5 Q( X& \3 J0 }8 M ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; ; J2 y3 l1 a- Y& k" V : o8 p! ?/ W. S* k, N. Wprocedure TApplication.Restore; begin if IsIconic(FHandle) then begin SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2 h8 ^9 v) a0 E" n {以下省略} end; 2 N4 b! h; Q, ` o, k再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); : O/ L( \) X2 j7 G' O, ^var 7 }4 u; |: T( _) K# M Animation: Boolean; begin ! {6 c# H9 {! l% {+ _5 }( { Animation := GetAnimation; : M& T$ y+ U2 K6 Y+ Z, u& A' |# T if Animation then SetAnimation(False); （1） " o% j& Q8 V6 }" l1 o/ m ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; . h7 L$ l$ W% a; w+ b0 d7 i / h0 A3 D# R" v' N; d" e再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); var Inf TAnimationInfo; 0 x3 g/ U% Q- o4 Nbegin Info.cbSize := SizeOf(TAnimationInfo); , X( x$ @; L8 G, ? BOOL(Info.iMinAnimate) := Value; / K; O" n* s( q6 A" E0 v# j SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; ; T& g/ u8 U8 w$ Z) _9 n. n 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 m* F6 Q. j' f8 ?) k+ R7 X procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); # C7 {9 W. J+ B% \6 @6 Obegin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then # j+ n* x" l+ u2 V2 Q! x$ C9 X Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 else " r' [; O- [: Y. W' e inherited; 2 a) L* y. }% y9 Q& S3 M7 C3 m3 \end; 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 7 I) J: n" a2 p/ g' R2 q 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand " C! p: b: T+ D. K( d- e注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application ) {$ `- @0 Q& Y" {; W的窗口了。具体改变方法如下。 # x9 H4 C3 N1 I' g/ N& ] 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， }2 U! V) d) }6 N* r, c. P然后将Forms.pas作为一个新单元加入到Project中。 * j' _( H I1 k i) C6 b3 I7 I# B 2.更改Project Source如下： : F: ^7 |" T& e) i8 M$ j ( `; i- F% M/ ?, i: p+ L) Fprogram Project1; 2 l5 \: G+ K4 }9 N) `2 C- e uses windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 9 d! n, [0 R# g+ i) D' b ' g# O2 p) c0 A{$R *.RES} ) K, ~/ h; o6 _0 i$ `$ z! u ' z u0 p% `" t: P4 P1 _5 [( M) L* q# Qbegin ! @' ?6 B& j/ Q# _$ L, u8 L# ]8 } Application.Initialize; Application.CreateForm(TForm1, Form1); : x7 f) r8 a& a SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, " d5 `% |6 n2 S0 e GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; & ?' H" c+ g% \/ e" E ^^^^^^^^^^^ 7 H% D, P0 S. A, V7 [5 _, y2 P showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4 J& v4 D6 Y5 L4 Y) z$ q3 n& t Application.Run; end. 6 \7 E. \1 g7 s# Q 以上打了 ^ 的均为添加的代码。 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 * m" C0 N' @, Qprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); " i r* }- W8 O. Hbegin 7 I- |% B+ s! @5 E& {5 j{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and . a9 @% w6 a$ j (Application.MainForm = Self) then 3 ~7 S* }( |3 X6 N: A7 j Application.Minimize $ Q$ t" Z" B* h! ` else} -------------------------------- 注释掉了。 ) Q4 \& b% W$ ] inherited; end; 通过以上步骤，基本上旧可以实现动画缩放了。 3 |( n; F2 o" [3 t! J$ x# k BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 , P, s. W+ [, B: |6 R; D$ _+ ^) f 供大家交流。