德爾福 - 形式最大化事件

Question

我想在表單被最大化或恢復後調用一個函數。 我知道我可以是這樣的：

procedure TfrmMain.WMSysCommand; 
begin 
    if (Msg.CmdType = SC_MAXIMIZE) OR (Msg.CmdType = SC_RESTORE) then 
    begin 
    Showmessage(IntToStr(frmMain.Height)); 
    end; 
    DefaultHandler(Msg) ; 
end; 

但問題是：形式實際上是調整之前觸發此事件 - 之前，它是maxmized所以當窗體最大化，我得到了模板的高度（但我希望表單的寬度最大化後）。

如何做到這一點？謝謝！

Answer 1

以下鏈接也許會幫助你：

http://www.tek-tips.com/viewthread.cfm?qid=809465&page=176

聲明此插入本機

Procedure sizeMove (var msg: TWMSize); message WM_SIZE; 

和執行該程序的接口部分：

Procedure TfrmMain.sizeMove (var msg: TWMSize); 
begin 
inherited; 
if (msg.SizeType = SIZE_MAXIMIZED) OR (msg.SizeType = SIZE_RESTORED)then 
    resizeQlikViewReports(); 
end;