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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： 2 d/ H! C4 M7 C* j4 ^! }* L我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, . w. _. h: M, }一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 4 z* O% Y8 \% w, l也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 , e+ F+ a5 A. M化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 - z+ S) T9 m0 }( r" \ ! g& m R u5 y4 y2 g 可以在VCL的源码forms.pas中发现如下代码： # k6 M' F. k8 O0 i6 n# ]2 m : P* G: ]) M0 ]. D+ B' _ i0 z ( {1 T6 m/ T9 p: dprocedure TApplication.Minimize; 3 g3 c V T) b: m- o4 Lbegin 9 w+ L1 l# V: m; L+ v if not IsIconic(FHandle) then begin NormalizeTopMosts; SetActiveWindow(FHandle); , `0 N; ]! `7 T" r, Z' G$ n ShowWinNoAnimate(FHandle, SW_MINIMIZE); c7 n. g% Y) G2 Q- }/ {7 v6 Y4 E- ^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 9 T5 [. C$ N4 n6 J% Z% y# P4 A if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; ) p7 F* B" {* c* ^1 q procedure TApplication.Restore; begin 8 [' v% y% S& k# n2 J+ L8 Y# J if IsIconic(FHandle) then begin 9 x& E: Q4 f. w4 x( K SetActiveWindow(FHandle); 1 f9 ]! s( J( P! U( b ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ) O! v C$ _ c& | {以下省略} 9 y$ S' W. H+ e* Z/ B" ]/ c- d$ o4 V; P, send; " }3 q5 a4 k8 S6 p # s5 P7 ?: |( Q2 N再看一下 ShowWinNoAnimate: * @4 s6 E! F6 g- Z) D% a/ v5 {7 b' q procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); 4 @% U# N+ q. A/ s+ l- e) W: `" Zvar 9 w- Y* \, `+ s$ ?- r3 R Q, k Animation: Boolean; ' c7 S! ?. h8 pbegin - {; ~. V+ N) O Animation := GetAnimation; 4 @" K Z$ s2 \( t: f if Animation then SetAnimation(False); （1） . W& g& }% M' i* c" p) D ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); : `% q$ K# f0 uend; ; u8 L: j% m3 k " }5 O% [3 c: T" C5 t) T3 Z再看一下 SetAnimation: . s, L% n0 A& z- P: k2 q4 {) G procedure SetAnimation(Value: Boolean); var Inf TAnimationInfo; begin : J8 U1 k) \+ Y- D5 z$ [/ e' ^1 z Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 9 j& e- b7 W$ B 原来在这里。 3 ?2 h( H9 p! e$ Q+ e# N/ F send; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin & F" h! R2 S9 w6 `* O! L1 F! x- C if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 3 |, X6 ~( R2 a8 j% R (Application.MainForm = Self) then ! k( `2 e. n" E& c" \3 D9 X; z Application.Minimize + c6 u/ H" f. |% x9 [+ d- [ ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 # g+ x! G+ q/ d! G' p. Z% `3 }) v else . c* _' L& y# [! k. k3 ` inherited; end; # }6 @9 V' l' h0 d- B 你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 & A& D' c5 A7 t. U N 哦有一个解决方法如下： 9 L$ i4 F/ p% ?+ Z8 z/ o3 J 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 ) i" d2 d8 h2 ]$ o隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， : U& _* P1 g0 J' l$ w/ A0 V9 T6 n) ^我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 2 D6 \) S& S5 y的窗口了。具体改变方法如下。 3 ?4 u9 p- z/ j3 M" _0 n' j 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 0 l8 [3 Q O2 N) m 2.更改Project Source如下： , J: S0 T' i5 \4 tprogram Project1; uses - @3 |- |7 }+ F9 c8 h h windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 3 n$ V6 [* g. c( [( M {$R *.RES} 5 P2 ]- `8 O- w m1 |- G8 [0 Ubegin Application.Initialize; 0 {% F0 |; x- A. P8 n Application.CreateForm(TForm1, Form1); $ F2 I" p' \* m( F% d. N' P& f7 }9 ^ SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ # [ d- @- J9 ~, p a: T form1.show; " V6 v) e$ U0 ~, d9 q6 v ^^^^^^^^^^^ showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Application.Run; 1 Q3 B1 T* ?. u/ |end. 2 h3 g$ X9 E2 P: {0 [/ K 以上打了 ^ 的均为添加的代码。 5 r, G$ T) X) H( k6 Y" D * c4 y& z b3 s. F 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 9 A6 [* ?: c C 大家也可以试一试不改的效果。 9 H# j3 V! V. s$ g9 Bprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); * t5 P0 D3 M3 j* ]& Lbegin 0 M) P" Z( z) u{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 4 O/ p, K8 a l, { (Application.MainForm = Self) then Application.Minimize else} -------------------------------- 注释掉了。 inherited; [9 z# \# G, Eend; $ |$ |/ }0 ]$ _$ v& J: s( [ l9 R" I) h" i( `2 R8 C( i2 j通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。 ' |4 ~3 `+ N0 f1 n