TToolBar.Create Constructor

Creates and initializes a TToolBar instance.

Pascal

constructor Create(AOwner: TComponent); override;

C++

virtual __fastcall TToolBar(TComponent * AOwner);

Description

Call Create to create a toolbar at runtime. Toolbars added to forms at design time are created automatically.

AOwner is the component, typically the form, that is responsible for freeing the toolbar instance. It becomes the value of the Owner property.

C++ Examples:

Copy Code

/*
This example creates a ToolBar and adds ToolButtons to it.
Include ComCtlrs in the uses clause.
*/
#include <comctrls.hpp>

void AddButtons(TToolBar *toolBar, TStringList *captions)
{
  for (int i = 0; i < captions->Count; i++)
  {
    TToolButton *button = new TToolButton(toolBar);
    button->Parent = toolBar;
    button->Caption = captions->Strings[i];
    if (button->Caption == "|")
      button->Style = tbsSeparator;
    else
      button->Style = tbsButton;
  }
}

TToolBar *myToolBar;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  myToolBar = new TToolBar(this);
  myToolBar->Parent = this;
  TStringList *captions = new TStringList();
  captions->Add("New");
  captions->Add("Save");
  captions->Add("|");
  captions->Add("Cut");
  captions->Add("Copy");
  captions->Add("Paste");
  AddButtons(myToolBar, captions);
  delete captions;
  myToolBar->ShowCaptions = True;
  myToolBar->Height = 40;
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  for (int I = myToolBar->ButtonCount - 1; I >= 0; I--)
    delete myToolBar->Buttons[I];
  delete myToolBar;
}

Delphi Examples:

Copy Code

{
This example creates a ToolBar and adds ToolButtons to it.
Include ComCtlrs 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;
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1 := TToolBar.Create(Self);
  ToolBar1.Parent := Self;
  AddButtons(ToolBar1, ['New', 'Save', '|', 'Cut', 'Copy', 'Paste']);
  ToolBar1.ShowCaptions := True;
  ToolBar1.Height := 40;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  for I := ToolBar1.ButtonCount - 1 downto 0 do
    ToolBar1.Buttons[I].Free;
  ToolBar1.Free;
end;