程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> C++ >> 關於C++ >> CB的Form最小化時無動畫的原因

CB的Form最小化時無動畫的原因

編輯:關於C++

問: 我現在也搞不懂,甚至認為無法讓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:這種方法實現也還有一定缺陷,那為大峽有更好的方法請提出來

供大家交流。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved