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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 3 s" P3 ~. c0 S6 Y% J% l' a 答： 3 R! k: I0 c( H* L我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 " A0 `% l5 |0 m6 v( n4 {也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton ! y/ n1 L# ~4 j的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 9 p5 V/ P& d$ F0 \; Q: E5 Z! FButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 " V9 k# H4 A3 l# FTApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 - m, A% j$ O; A% F 5 P2 g% |& C/ X; [1 F6 ^0 B% q 可以在VCL的源码forms.pas中发现如下代码： # z0 [( D; U. G) J: { Gprocedure TApplication.Minimize; begin if not IsIconic(FHandle) then begin * z# i9 b+ @7 e, ]8 J7 [- G9 _; d NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); ! z- k+ s( {3 C" L% D: f end; 0 w" h! M- ~0 _# y- `( send; procedure TApplication.Restore; begin ) n; C' R! D$ Q' i) v9 V/ F! S if IsIconic(FHandle) then 8 i/ I! n! M5 z" f3 ~ begin : M1 W. @. f- K$ m SetActiveWindow(FHandle); ' L3 U+ V" z! F3 L ShowWinNoAnimate(FHandle, SW_RESTORE); 0 ~4 W/ Y4 b8 \2 m ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} end; + _* j" t$ e1 @+ t* N$ B& K1 H 再看一下 ShowWinNoAnimate: * E* s! F7 I8 }, G2 h8 H' `procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); $ n2 {0 s" {8 w2 J! Svar Animation: Boolean; begin Animation := GetAnimation; 5 I2 z; K; _( k' r* s2 {7 G( {: m if Animation then SetAnimation(False); （1） ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); " K' v% \( Q: y$ o- `3 y; P \end; 再看一下 SetAnimation: ! z3 U- K3 Y& w % S0 l5 r) ^: Uprocedure SetAnimation(Value: Boolean); 4 E* L# O0 c% E/ o, u# z) svar Inf TAnimationInfo; % e% C8 ~- k& o W2 c0 Dbegin ! @3 h$ q) d- D: ~% r5 a/ Z Info.cbSize := SizeOf(TAnimationInfo); & h0 j6 L- f/ `5 Z BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 9 F. {2 |8 ^. Q- q" S5 H0 { 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 6 ?7 g/ K9 _! M# O$ f2 u' i继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); % j' M7 x: [+ e% E1 Ebegin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then 1 f% X2 p" k- I& M Application.Minimize 0 Y, L0 x# m, M7 q ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 % {3 y# ~' |9 U! ^! z Form1。 else 2 P+ ^( g& t J/ z, w inherited; end; " D- }6 V+ l! a' Z% ~4 q你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 ! ]- b- A; A) a$ `. [7 [; A很难看。 & C% h, b5 l3 U- E, f% G, {- D 哦有一个解决方法如下： 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， 我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand % K* V- T4 t- x% a注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： program Project1; ! }" q5 M0 r: p) x - E) R" }! ~$ {/ x6 b4 Suses 7 n6 A. I+ h9 I$ S% [% e0 b windows, " H! \! ]* Q) W j- ?9 C ^^^^^^^^^ Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; {$R *.RES} 9 I# a; R7 l1 i. D4 t7 v& o ! | y* K3 u/ n( Ybegin 4 l9 J$ r0 d. e$ c: i$ Z$ m Application.Initialize; Application.CreateForm(TForm1, Form1); # a7 a! R, P3 `3 T) [( @3 w& Z SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, % J% T' F5 I8 v4 e GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ : e% Y Q' h0 |0 }% k form1.show; & r6 F# }0 ]4 k' K$ R( R7 \ ^^^^^^^^^^^ + _: ]- {: T3 R3 Q$ ~+ r showwindow(application.handle,sw_hide); , m6 f; f. [) @! e: @ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ / X) E# U! f3 H+ A6 L, D+ y Application.Run; $ r9 d$ m: z8 V" d- r% mend. " |! `% Y! V" `6 @3 ~ 以上打了 ^ 的均为添加的代码。 2 E0 B" O3 \2 c! ^$ _5 ? 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 大家也可以试一试不改的效果。 3 P- H9 R- C4 S! k: } procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and 2 `/ I" P8 F9 v4 W/ w% w; U (Application.MainForm = Self) then / }% w; c% Y( P Application.Minimize else} -------------------------------- 注释掉了。 ) E! N: b& o/ f+ x: M inherited; , B: Z) l% x' R4 f" t; Hend; 9 J; H; A/ K0 H, i通过以上步骤，基本上旧可以实现动画缩放了。 / ~ U! z% H3 J/ k8 c" x. ~& P 1 J) R7 Q9 j/ Y+ h+ OBTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 & r+ i4 o5 H# R- E c* ~3 @: I 供大家交流。