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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 答： 7 N( h; W6 w7 z& e我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 L+ L+ l( I* k; Z* f$ t也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton 的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 ; _$ J# C# b& h u- H% h; AButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 * T: p$ _8 a/ r& K化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 * R& y+ w9 p: M V6 |) FTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 可以在VCL的源码forms.pas中发现如下代码： 5 t& W" |1 r' a( T ) o6 v% n2 \! x( @procedure TApplication.Minimize; * \' q$ k" w Q! t( B/ |0 @' R1 Pbegin if not IsIconic(FHandle) then begin $ b4 g! C& p1 W/ Z NormalizeTopMosts; SetActiveWindow(FHandle); ! r. L6 G8 K# K, G$ ] ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; + n9 M3 F# r0 f* k0 nprocedure TApplication.Restore; begin 0 X# b7 K# ^( P0 K if IsIconic(FHandle) then : p" r* x, s$ G/ r x begin 6 ?' d1 g6 S; ]6 \ SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " B0 J. P' s% j- O4 p* ] {以下省略} end; 再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; begin 7 m; m' o& |/ ~ Animation := GetAnimation; & m( n* t4 p4 h" I* X9 m \ if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); , Q7 F3 D. F' E/ g E& ~ if Animation then SetAnimation(True); end; 再看一下 SetAnimation: # E' x4 Q8 V% \* i procedure SetAnimation(Value: Boolean); var Inf TAnimationInfo; 7 r5 N1 i: B1 ^5 ^+ Ibegin Info.cbSize := SizeOf(TAnimationInfo); 5 h' ?) ~$ K6 l2 V( B BOOL(Info.iMinAnimate) := Value; + }" \1 q, C8 [% Q3 Z1 T SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; 0 x6 K8 {4 Q0 s( H让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 9 q% d8 h( p9 i9 J, ^/ Y6 w9 I) B继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 2 o- J4 b" E+ u; h: p) w7 c3 O% zprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); 5 R" U @( w* p9 W) j. B3 [0 sbegin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then ) R3 S8 ^( t- y) W8 z' g8 {0 A8 Q3 K Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 + B! u) w2 h6 w* l else inherited; end; ) v' E" ^) B) e6 i# c& U6 L! P) d你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 4 I$ l5 H9 g8 |! [; Y 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 ' }8 Z, D) F: y: V$ @; a+ N隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 0 H% O4 z: C0 r" I我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand _5 |2 h. T7 R$ a: p; H6 }注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application ( P/ y2 y1 M, `) J# V) Q( c的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： - Z* o' v, o3 A& t4 r5 }: A( q4 d# g 4 L% |8 ]- }" ^# jprogram Project1; " F1 J, Y3 V+ Y / o6 n8 d8 h% k" @# kuses & o4 R/ `" q0 l windows, 7 i* a R8 W. D6 w ^^^^^^^^^ 1 K2 ]' j6 j# }7 Q! Z$ g7 W3 j Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; ! D4 S& m6 q$ P9 I, ~6 p6 B {$R *.RES} " \: c4 V2 w4 h7 U6 ~; ~begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); 6 [) q8 v1 Z9 b' Q& g( I9 |6 S ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; - c9 H: z3 m4 S$ W: A ^^^^^^^^^^^ , O6 ~. v F% J7 ^* T showwindow(application.handle,sw_hide); / E9 W j& q3 Z1 h# d" u6 h7 o ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ; W7 ~# v3 b. t Application.Run; + }3 f" e+ {8 u# [ Y) Wend. 以上打了 ^ 的均为添加的代码。 w# N q- U* t3 [& T+ `( f8 H) L 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 # J$ }2 f5 w/ ~3 ^8 Q% j. V ! w/ D# o! b3 ?procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin " t+ V' S% \- j* l{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize % B" M8 W" v) w1 d6 ` else} -------------------------------- 注释掉了。 4 C# o; K8 P# |, ?) ~( F inherited; , Z) v: U5 N3 Q4 M4 W, p* Nend; 通过以上步骤，基本上旧可以实现动画缩放了。 ( Q& f7 j& f2 w4 H x# m3 W7 k7 |5 V9 m3 qBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 供大家交流。