Procedure TWPShadedForm.WMSize(Message:TWMSize)Unit: WPUtilClass: WPUtil.TWPShadedFormParameters Message:TWMSize