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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 4 ]5 \0 g) M4 w: G, o9 y2 J + `; g) Z: L1 O4 R 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 + H: r: m/ S# x) m: J, K- ]也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton N% Q0 g& b/ H( y! m) U& Y' k的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 Button。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 % C1 U+ d7 r x: k* F; T- wTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 6 p6 r4 Z; k# U; t9 C1 e( k, B! I他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 + Z# ^2 L" }/ U- H& v/ L 可以在VCL的源码forms.pas中发现如下代码： procedure TApplication.Minimize; begin 1 ]/ @- _1 U0 E9 P, A' @, k" @ if not IsIconic(FHandle) then begin , i0 e( C' k6 Q. t# K; U7 \# U& L NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' c: Z) u+ k0 J if Assigned(FOnMinimize) then FOnMinimize(Self); end; : p, u4 l2 P; l8 Bend; + }1 w1 B! V5 r7 B% @procedure TApplication.Restore; 4 X* t6 x+ m/ d' c/ @# |' ^begin 6 T( u8 `6 R" s0 M% t0 q if IsIconic(FHandle) then begin & g6 O. u/ @9 O- y SetActiveWindow(FHandle); / ]+ K+ N! j) O) O, O- F: u( E ShowWinNoAnimate(FHandle, SW_RESTORE); ; `- h. o5 \' F2 B% @ S9 W% J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ : A! C; M. F5 T4 P {以下省略} end; * `! b c% g- K& v4 s i1 _3 h" r6 B, i再看一下 ShowWinNoAnimate: ) b) R/ g7 |5 J& {* W- S+ e; M + K* T* S1 y7 S4 k5 k1 v& W7 y6 x! f6 hprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); 0 r i2 P% B, D1 nvar 4 J8 g# z+ [* \3 y. }. T# A8 c Animation: Boolean; begin Animation := GetAnimation; 3 } Z" l' ?3 ^* p if Animation then SetAnimation(False); （1） 2 |/ z! D) p' q8 c* C ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; 5 X6 |+ ?; ^# {0 k1 r再看一下 SetAnimation: 8 o% D0 M1 v {9 `- X/ t" Y$ H) C 5 a2 D8 s! n% @2 Wprocedure SetAnimation(Value: Boolean); var ( Y6 H' o3 r8 S0 q, H/ j Inf TAnimationInfo; 2 O: N% a) N! V3 O8 }- b/ {) Ubegin - h$ X1 G& D. }' x- |$ \ Info.cbSize := SizeOf(TAnimationInfo); $ \) d( A; G! A5 d0 |# @% i( R, y* C BOOL(Info.iMinAnimate) := Value; / X: ]6 w- z3 }0 P SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); , B5 Y6 D: e ~. l ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ # A: P4 p# P3 P 原来在这里。 5 P; H0 f U: v& R+ `7 N1 `; Xend; 4 V c( Z/ l7 ] Q1 Q- I让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm - b8 N+ M/ y3 a4 U: f, H+ L" e* G继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 ' B" D$ _, r O5 R) E! ~ procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and ; E; Q( N0 N, m: g" @% ] (Application.MainForm = Self) then ' |6 ?: U! b3 Z6 C7 B% ], u Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 & n- I3 C) g7 R$ P- b1 w7 a+ X Form1。 else e% R. b0 E6 f inherited; : ]$ c( r9 X/ M) W [; ~3 tend; . H) m: Z) s0 B F7 Z* Z 8 ^* G0 [2 O( r/ U, J; o% {你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 % ?- p8 w) t0 F. p2 T3 U) V. D很难看。 7 T- `/ x+ g. l7 n+ w0 J 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， & P: J& a& r$ ?4 G; t2 ]5 l我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand % a3 ]8 H Q, |9 g+ W k$ }# R/ L1 c, R注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 3 V c; l* O( w的窗口了。具体改变方法如下。 0 q# _" X5 D0 v* b+ o5 b 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， - ~ ~+ V( x: }( d/ ]+ m$ D' M然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： / t; [# a H) Y! C# j program Project1; $ r: M1 X1 T0 q# Q 5 n% ~3 v2 E0 T: j: [uses + ?* ]4 B5 ?6 v* K windows, ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, 0 j0 M2 @' T4 f Forms in 'forms.pas'; 3 C7 W7 L- A3 w0 Y, |{$R *.RES} ; y% S. f* P3 b) Z$ M begin Application.Initialize; Application.CreateForm(TForm1, Form1); 6 T9 L7 _% n% n SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, 3 B& x0 C3 o* p4 S0 U. V6 B h GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; + C# ?# s* {9 O2 }* C( ?6 F9 _ ^^^^^^^^^^^ showwindow(application.handle,sw_hide); ' g, ~1 ~/ q6 {) s ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + J. v# u$ D$ Z7 u9 M Application.Run; 1 A- R/ h) @1 f/ p# |: Aend. 2 c2 _& P/ B2 Z1 y+ Q& b 以上打了 ^ 的均为添加的代码。 1 Y# Z7 @, J8 P+ H( Y- L ' u8 I8 k2 ^, B$ c 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 ( f* C. X' G3 @/ |0 v 6 ~' P0 X8 e& q* _* ^" {0 lprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 4 ?; h, j4 }7 lbegin $ M' Z0 w$ [8 n) v8 x, L{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then : L o& F9 Q' i3 R( A. E0 F Application.Minimize else} -------------------------------- 注释掉了。 inherited; end; 5 y- ~6 P$ B4 g) \通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。