[Overview][Constants][Types][Classes][Procedures and functions][Index] |
Lists with the tool buttons on the tool bar.
Source position: comctrls.pp line 2349
public property TToolBar.Buttons[Index: Integer] : TToolButton |
Buttons maintains a list of TToolButton instances. All tool buttons that share a TToolBar parent have the same height and (except for separators and dividers) the same width. Other controls on a toolbar are held in place by invisible separators, which are automatically created and destroyed.
To add tool buttons to the toolbar at design time, select the toolbar, right-click, and choose New Button. To create a space (separator) between one button and the next, select New Separator. To create a divider between buttons, add a button and set its Style property to tbsDivider. Other controls may be added to the toolbar directly from the Component palette.
|
Determines the display style for the tool button. |
{ To use this example, create a new application and add the example code to the unit. Remember to add the ComCtls unit in the uses clause. } procedure AddButtons(ToolBar: TToolBar; const ButtonCaptions: array of String); var i: integer; begin for i := 0 to High(ButtonCaptions) do begin with TToolButton.Create(ToolBar) do begin Parent := ToolBar; Caption := ButtonCaptions[i]; if (ButtonCaptions[i] = '|') then Style := tbsSeparator else Style := tbsButton; AutoSize := True; end; end; end; procedure TForm1.FormCreate(Sender: TObject); var ToolBar: TToolBar; begin ToolBar := TToolBar.Create(Self); ToolBar.Parent := Self; ShowMessage(IntToStr(ToolBar.ButtonCount)); AddButtons(ToolBar, ['New', 'Save', '|', 'Cut', 'Copy', 'Paste']); ToolBar.ShowCaptions := True; ToolBar.Height := 40; ToolBar.ButtonWidth := 75; ShowMessage(IntToStr(ToolBar.ButtonCount)); end;
Version 3.2 | Generated 2024-02-25 | Home |