| **Navigation:**  [[abc library reference.htm|ABC Library Reference]] > FormVCRClass > FormVCRClass Methods >====== AddToolbarTarget (set the FormVCR toolbar) {{c6h0009.jpg|C6H0009.jpg}} ====== | [[formvcrclass methods.htm|{{btn_prev_n.gif|Previous page}}]][[abc library reference.htm|{{btn_home_n.gif|Return to chapter overview}}]][[checkborders check for existence of records .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

**AddToolbarTarget( **//toolbar //**)**

{{blk2blue.jpg|blk2blue.jpg}}

| **AddToolbarTarget** | Registers the FormVCR object as a potential target of the specified //toolbar//. |
| //toolbar// | The label of the ToolbarClass object that directs toolbar events to this FormVCRClass object. |

The **AddToolbarTarget **method registers the FormVCRClass object as a potential target of the specified //toolbar//.

The ToolbarClass.SetTarget method sets the active target for a ToolbarClass object.

**Implementation:**

The Toolbar object for a FormVCR is the object that detects toolbar events, such as scroll down or page down, and passes them on to the //active //ToolbarTarget object. In the standard template implementation, there is a single global toolbar, and a Toolbar object per procedure that may drive several different browses and forms, each of which is a ToolbarTarget. Only one ToolbarTarget is active at a time.

**Example:**

**  OPEN(QuickWindow)                                       ! Open window**

**  SELF.Opened=True**

**  FormVCR6.Init|**

**  (?FormVCRControls,10,FormVCR6::View,Relate:people,SELF) ! Initialize the FormVCR manager**

**  FormVCR6.InsertWhenNoRecords = True**

**  FormVCR6.SetVCRControls|**

**(?FormVCR:Top,?FormVCR:PageUp,?FormVCR:Up,?FormVCR:Down,?FormVCR:PageDown,?FormVCR:Bottom)**

**  FormVCR6.SetRequestControl|**

**(?FormVCR:Request,?FormVCR:Request:View,?FormVCR:Request:Insert,?FormVCR:Request:Change,|**

** ?FormVCR:Request:Delete)**

**  Do DefineListboxStyle**

**  FormVCR6.AddSortOrder()                            !Add the sort order for  for sort order 1**

**! Controls like list boxes will resize, whilst controls like buttons will move**

**  Resizer.Init(AppStrategy:Surface,Resize:SetMinSize)**

**  SELF.AddItem(Resizer)                              ! Add resizer to window manager**

**  SELF.AddItem(ToolbarForm)**

**  FormVCR6.****AddToolbarTarget****(Toolbar)                 ! Browse accepts toolbar control**

**  FormVCR6.Reset**

**  SELF.SetAlerts()**

**  RETURN ReturnValue**

**See Also:     **[[toolbar browse toolbar object vcr.htm|Toolbar]], [[toolbaritem formvcr toolbartarget object vcr.htm|ToolbarItem]], [[settarget  sets the active target .htm|ToolbarClass.SetTarget]]