[Overview][Constants][Types][Classes][Procedures and functions][Index] Reference for unit 'ComCtrls' (#lcl)

TToolButtonStyle

Enumerated type with values representing the display styles and behaviors for buttons on a TToolBar control.

Declaration

Source position: comctrls.pp line 2050

type TToolButtonStyle = (

  tbsButton,

  

The button appears and functions like a normal button.

  tbsCheck,

  

Clicking the button toggles the Down property. Once selected, the button remains selected until clicked again.

  tbsDropDown,

  

The button displays a downwards-pointing arrow (suitable for accessing a drop-down menu).

  tbsSeparator,

  

The button appears as an empty space on the toolbar (used to separate other controls).

  tbsDivider,

  

The button appears as a vertical line on the toolbar (used to separate other controls).

  tbsButtonDrop

);

Description

Values in TToolButtonStyle indicate the visual display for a tool button and its behavior when clicked. TToolButtonStyle is the type used to implement the Style property in the TToolButton class.

See also

TToolButton.Style

  

Determines the display style for the tool button.

Example

{ 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