Procedure TWPToolbar.DoClick(Sender:TObject)Unit: WPTbarClass: WPTbar.TWPToolbarParameters Sender:TObject