Delphi - 形成最大化事件

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;

但问题是:此事件在表单实际调整大小之前触发 - 因此当表单最大化时，我会在最大化表单之前获取表单的高度(但我想要表单最大化后的宽度)最大化)。

如何做到这一点？谢谢!

Answer 1

以下链接也许会对您有所帮助:

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

将其声明到该单元的接口(interface)部分

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;