其它控件的最小化，最大化和還原 (2001年5月26日) 

本站更新  分類:界面   作者:CoDelphi  推薦:   閱讀次數:131  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

-在窗體中加入TMainMenu ，加上3個菜單項：'最小化', '最大化'和 '還原';
-在窗體中加入TButton;
-在菜單項的OnClick事件中加入： 
{------}
procedure TForm1.Minimize1Click(Sender: TObject);
begin
ShowWindow(Button1.Handle, SW_SHOWMINIMIZED);
end;

procedure TForm1.Maximize1Click(Sender: TObject);
begin
ShowWindow(Button1.Handle, SW_SHOWMAXIMIZED);
end;

procedure TForm1.Restore1Click(Sender: TObject);
begin
ShowWindow(Button1.Handle, SW_RESTORE);
end;
{------}

運行程序，可以看到button通過菜單選項可以實現最小化，最大化和還原。當你把它最大化時，你可以看到window默認的最大化動畫。

我們繞過了VCL 的封裝性，直接使用WinAPI 函數ShowWindow 控制button。

這個方法可以使用在有句柄的任何控件，所以不可以使用在 SpeedButtons (它們來自TGraphicControl)。

使用TPanels 還可以模擬MDI程序。