>oForm = CREATEOBJECT("frmTest") >oForm.Show(1) > >DEFINE CLASS frmTest AS Form > Caption = "Resize or move the form" > PROCEDURE INIT > > *--------------------------------------------------------------------- > * Set the API calls for intercepting the Windoes resizing messages > *--------------------------------------------------------------------- > #define WM_EXITSIZEMOVE 0x0232 > #define BE_FireAfterEvent 0 > > BINDEVENT(ThisForm.HWnd, WM_EXITSIZEMOVE, ; > ThisForm, "OnWindowResizeExit", ; > BE_FireAfterEvent) > > BINDEVENT(_Screen.HWnd, WM_EXITSIZEMOVE, ; > ThisForm, "OnWindowResizeExit", ; > BE_FireAfterEvent) > > ENDPROC > > PROCEDURE OnWindowResizeExit > LPARAMETERS hWnd, nMsg, nwParam, nlParam > ThisForm.Caption = "Now, try resizing or moving the VFP Screen" > MESSAGEBOX("Finished Resizing or Moving") > ENDPROC > >ENDDEFINEVery nice!