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;
Comments
Post a Comment