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

韩冰

问： 我现在也搞不懂，甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口，而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize， 就会最小化到桌面的左下角去了。 - `1 t$ t* @; p8 P+ R7 Y, z 答： 我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication, 一般情况下，这个窗口居于屏幕中间，大小为0x0。底部TaskBar上的按钮 也是TApplication窗口。应用程序的主窗口如TForm1，不是TApplicaiton : H& N, ~6 b5 c4 |! [* O的子窗口，但他不具有WS_EX_APPWINDOW的属性，所以不在TaskBar上产生 : w# b9 M4 ^5 Y# }8 bButton。当最小化的时候，由于TApplication窗口是0x0的，所以如果有动 X' a: R0 t+ l化会很难看，所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1，因为底部Taskbar上的Button不是 他的，所以VCL中直接HIDE了TForm1。这样，使得整体上看起来无动化。 可以在VCL的源码forms.pas中发现如下代码： / Q1 e' G/ A T. }& W; { - W# B$ g: }! L! _/ n3 p procedure TApplication.Minimize; begin . b: R. d/ e* h3 u if not IsIconic(FHandle) then # c/ r8 |+ N& @% A begin NormalizeTopMosts; / i- Z4 p! s, [5 i; f SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); 9 _( s0 l+ Q) J3 k( g ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); ) j) E$ c6 w8 h" y9 Y end; 3 z0 |1 }) e3 Y) w( Tend; procedure TApplication.Restore; begin if IsIconic(FHandle) then 5 r8 g1 ?5 i0 g( S3 c- _ begin SetActiveWindow(FHandle); 6 X9 S: w+ N( B4 B8 B ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ( p' M5 Q2 X7 { ?) j% T; A5 l {以下省略} end; 5 o, N5 i! C" _3 f" C再看一下 ShowWinNoAnimate: 6 E" \' h) A- v, L0 Z4 k & P3 s$ K% V6 |! g; V# Kprocedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); 1 M2 z3 C+ a8 g7 M) Hvar Animation: Boolean; ! ]& S1 \$ p1 n8 `) e& Bbegin ( t! S' t' q& @7 w2 x& @3 I Animation := GetAnimation; * Q" k! @0 i" M* L6 x5 v if Animation then SetAnimation(False); （1） 8 E/ l2 i2 W0 k) }& Q ^^^^^^^^^^^^^^^^^^^^^ # \- T' a; U" \ ShowWindow(Handle, CmdShow); % a: E; ?8 @" b if Animation then SetAnimation(True); end; / O, o ?/ y% Z: |: ]4 A1 E再看一下 SetAnimation: 6 h: t% w/ T3 I' C procedure SetAnimation(Value: Boolean); 3 @4 Z8 i" ^6 A6 U. Avar ) c: Q0 y7 I6 h+ T2 a Inf TAnimationInfo; begin ; G' ]# Q. B3 j7 `: I* l Info.cbSize := SizeOf(TAnimationInfo); , v( ^0 ~* L7 u BOOL(Info.iMinAnimate) := Value; ! q3 D+ @+ u: `. I5 V' x1 [( C SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ' [ {: u8 i" K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 " O8 r- R4 _& ?7 {2 vend; 4 h4 l& O& u' j9 G让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的，他自己没有响应WM_SYSCOMMAND的方法，所以使用的是 6 l( m% D1 v. f- Y0 eTCustomForm的。 , D% D# Z+ L& ? * A' H" W; Q# s6 ^" {procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then . Z- l) R( i/ p; v; i6 @ Application.Minimize ! P# J" R% [; I5 J, z1 t! P ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 7 C6 q; v2 ^& d Form1。 7 r! T7 g" e1 ~6 M% s; E$ u' u else inherited; end; 8 n' R' k* E. [3 I - h- D+ o. x2 S你可以注释掉以上的（1）句，就会发现Tapplication最小化时有了动化，但 很难看。 哦有一个解决方法如下： 6 H$ k7 H+ R6 e) h2 ^' { 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW，但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外， + u' r( Y- O- j0 f/ `8 J我们还必须改VCL的源码。在Forms.pas中，将上面那个TCustomForm.WMSysCommand 注释掉if，只剩下inherited,这样，Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录，从Project Source中删除缺省的Forms单元， 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下： # P* ^* a6 ^' i- Y, ? program Project1; $ R7 T0 l+ \9 B uses windows, % ?- K6 M: W+ T# M, C" ? ^^^^^^^^^ 8 ?. C" z( ]0 d. O Unit1 in 'Unit1.pas' {Form1}, Forms in 'forms.pas'; 8 q2 \, D) y# b) P{$R *.RES} begin Application.Initialize; ( F- m" W% \7 m3 a' V1 L J* u7 B) ? Application.CreateForm(TForm1, Form1); + K2 g8 l9 t: D$ G/ M* N& e8 @! p SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, * f/ f$ u) V- J V% m GWL_EXSTYLE) or WS_EX_APPWINDOW); 8 f7 M6 i2 H5 w& ^% h( K4 S+ y ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ form1.show; 3 d; ~0 E. a. N: ~ R$ F ^^^^^^^^^^^ 2 ]3 t- V* o" x5 L$ J6 o showwindow(application.handle,sw_hide); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 u8 |7 G* P U4 X Application.Run; ' C, @: w/ Q5 d) T7 }* D2 xend. " \/ f) R" ]( ` 以上打了 ^ 的均为添加的代码。 4 u4 O* c0 h( _ 6 _/ ^8 B+ e* s$ }: ~9 R 3.将Forms.pas中的TCustomForm.WMSysCommand更改为如下： 8 y& @# Q' ]" I' N6 o: w- B 大家也可以试一试不改的效果。 & w8 u2 S7 V' ]- g$ G- j, A4 dprocedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin { if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then : b) Y7 ?# z0 G6 d( r8 y6 `" L Application.Minimize ' E' y9 P/ v, R' T3 [8 A else} -------------------------------- 注释掉了。 9 T. ~0 O5 C n/ E2 W inherited; end; ! } W1 H" z6 u8 e$ k通过以上步骤，基本上旧可以实现动画缩放了。 BTW:这种方法实现也还有一定缺陷，那为大峡有更好的方法请提出来 ) p1 ^/ d8 l4 d: i3 }5 m+ j 供大家交流。