快速业务通道

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

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-30

问: 我现在也搞不懂,甚至认为无法让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);
^^^^^^

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号