Кнопка в toolbar

[Xandr]

Как программно создать кнопку в toolbar?

[Stilet]

Как и любую другую кнопку Например так:

procedure TForm1.ToolButton1Click(Sender: TObject);
var tb:TToolButton;
begin
//********** WITH **********
tb:=TToolButton.Create(ToolBar1);
with tb do begin
OnClick:=ToolBar1.Buttons[0].OnClick;
parent:=ToolBar1;
end;
//********** END WITH ****** {}

end;

[Xandr]

Выдает ошибку, что то на счет ToolBar1.Buttons[0]

[Stilet]

Эта строка назначает обработчик по OnClick. Это всего лишь пример. Убери эту строку. Или назначь свой обработчик. У меня на Тулбаре уже была созданна кнопка, код кооторой ты видеш, и соответственно для примера я решил чтоб и остальные кнопки имели тот же код, посему и пишу OnClick:=ToolBar1.Buttons[0].OnClick;, т.е. назначить новоявленной кнопке обработчик такой же как и в первой кнопке, поставленной на тулбар в ходе проектирования.
Яснышко?

[Stilet]

Да и на будущее - Ошибку нужно приводить, ато не понятно что там у тебя выдает, я не телепат.

[Xandr]

ОК, спасибо.