问: 我现在也搞不懂,甚至认为无法让CB的主窗口有动画的效果。 因为在任务条上的按钮所代表的窗口是Application窗口,而不是 Project所选定的Mainform。如果强行让Mainform动态地Minimize, 就会最小化到桌面的左下角去了。
答:
我基本上同意你的看法。Delphi & BCB 中的的主窗口都是TApplication,一般情况下,这个窗口居于屏幕中间,大小为0x0。底部TaskBar上的按钮
也是TApplication窗口。应用程序的主窗口如TForm1,不是TApplicaiton的子窗口,但他不具有WS_EX_APPWINDOW的属性,所以不在TaskBar上产生 Button。当最小化的时候,由于TApplication窗口是0x0的,所以如果有动 化会很难看,所以VCL中采用SystemParametersInfo这个API使得最小化时 TApplication窗口无动化。至于TForm1,因为底部Taskbar上的Button不是 他的,所以VCL中直接HIDE了TForm1。这样,使得整体上看起来无动化。
可以在VCL的源码forms.pas中发现如下代码:
procedure TApplication.Minimize; begin if not IsIconic(FHandle) then begin NormalizeTopMosts; SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_MINIMIZE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ if Assigned(FOnMinimize) then FOnMinimize(Self); end; end; procedure TApplication.Restore; begin if IsIconic(FHandle) then begin SetActiveWindow(FHandle); ShowWinNoAnimate(FHandle, SW_RESTORE); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ {以下省略} end; 再看一下 ShowWinNoAnimate: procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer); var Animation: Boolean; begin Animation := GetAnimation; if Animation then SetAnimation(False); (1) ^^^^^^^^^^^^^^^^^^^^^ ShowWindow(Handle, CmdShow); if Animation then SetAnimation(True); end; 再看一下 SetAnimation: procedure SetAnimation(Value: Boolean); var Info: TAnimationInfo; begin Info.cbSize := SizeOf(TAnimationInfo); BOOL(Info.iMinAnimate) := Value; SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 原来在这里。 end; 让我们再看一下当TForm1要Minimize时他干什么。因为TForm是从TCustomForm 继承过来的,他自己没有响应WM_SYSCOMMAND的方法,所以使用的是 TCustomForm的。 procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand); begin if (Message.CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then Application.Minimize ^^^^^^^^^^^^^^^^^^^^这一句的执行结果是最小化了TApplication,隐藏了 Form1。 else inherited; end; 你可以注释掉以上的(1)句,就会发现Tapplication最小化时有了动化,但 很难看。 哦有一个解决方法如下: 首先是要用SetWindowLong将Form1变成WS_EX_APPWINDOW,但这样一来旧必须 隐藏Application窗口。使用ShowWindow(application.handle,SW_HIDE);另外, 我们还必须改VCL的源码。在Forms.pas中,将上面那个TCustomForm.WMSysCommand 注释掉if,只剩下inherited,这样,Form1在最小化时旧不会击活application 的窗口了。具体改变方法如下。 1.拷贝一个Forms.pas到当前目录,从Project Source中删除缺省的Forms单元, 然后将Forms.pas作为一个新单元加入到Project中。 2.更改Project Source如下: program Project1; uses windows, ^^^^^^^^^ Unit1 in ''Unit1.pas'' {Form1}, Forms in ''forms.pas''; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(form1.handle,GWL_EXSTYLE,GetWindowLong(form1.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW); ^^^^^^
|