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

问： 我此刻也搞不懂，甚至认为无法让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);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
form1.show;
^^^^^^^^^^^
showwindow(application.handle,sw_hide);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Application.Run;
end.
以上打了 ^ 的均为添加的代码。
3.将Forms.pas中的TCustomForm.WMSysCommand变动为如下：
各人也可以试一试不改的结果。
procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand);
begin
{ if (Message.CmdType and $FFF0 = SC_MINIMIZE) and
(Application.MainForm = Self) then
Application.Minimize
else} -------------------------------- 注释掉了。
inherited;
end;

通过以上步调，根基上旧可以实现动画缩放了。

BTW:这种要领实现也尚有必然缺陷，那为大峡有更好的要领请提出来

供各人交换。