Delphi - form maximized event -

i want call function after form has been maxmized or restored. know can this:

procedure tfrmmain.wmsyscommand; begin    if (msg.cmdtype = sc_maximize) or (msg.cmdtype = sc_restore)    begin      showmessage(inttostr(frmmain.height));    end;    defaulthandler(msg) ; end; 

but problem is: event fired before form resized - when form maximized, height of form before maxmized (but want width of form after has been maximized).

how this? thanks!

the following link maybe you:

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

declare interface section of unit

procedure sizemove (var msg: twmsize); message wm_size;  

and implementation of procedure:

procedure tfrmmain.sizemove (var msg: twmsize); begin   inherited;   if (msg.sizetype = size_maximized) or (msg.sizetype = size_restored)then      resizeqlikviewreports();  end;