Procedure TWPToolbar.WMSize(Message:TWMSize)Unit: WPTbarClass: WPTbar.TWPToolbarParameters Message:TWMSize