segunda-feira, 9 de março de 2009

Controle para o evento on maximize

INIT DIALOG oDlg TITLE "Nome do Form" ;

ICON HIcon():AddResource(1004) ;

AT 303,185 SIZE 450,269 ;

FONT HFont():Add( 'Tahoma',0,-11,400,,,) CLIPPER NOEXIT ;

STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_SIZEBOX+DS_CENTER ;

ON OTHERMESSAGES {|This,msg,wParam,lParam| onOtherMessages( This,msg,wParam,lParam ) }

STATIC

FUNCTION onOtherMessages

Parameters

This,msg,wParam,lParam

IF

WPARAM = SC_MAXIMIZE

MSGINFO('MAXIMIZEI')

ENDIF

Luis Fernando Basso
lfbasso@via-rs.net

Nenhum comentário: