DevProg: Блог для программистов

Секреты программирования. Примеры разработки. Обзоры программёрского софта, блогов и форумов и просто полезные советы!

Узелок впрок! Как создать кнопку в режиме runtime, которая бы отображалась на компонетне ToolBar?

Posted by devprog на Январь 29, 2009

Мне пришло письмо от одного из моих читателей с вопросом о том, Как создать кнопку в режиме runtime, которая бы отображалась на компонетне ToolBar?

На самом деле сделать это очень даже просто:

 

 

• Киньте на форму компоненту TToolBar.

• Киньте на форму компоненту TButton.

• По событию OnClick у Button1 напишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var NewBtn:TToolButton;
begin
NewBtn := TToolButton.Create(ToolBar1);
NewBtn.Caption := ‘RunTime Component!’;
NewBtn.OnClick := BtnClick;
ToolBar1.InsertControl(NewBtn);
end;

• Обьявите в поле Type, после procedure Button1Click(Sender: TObject); следующюю процедуру:

procedure BtnClick(Sender: TObject);

• Нажмите Ctrl+Shift+C (тем самым создав новую процедуру для обьявления)

• Напишите между begin и end следующий код:

ShowMessage(‘http://www.devprog.wordpress.com‘);

• Компилируйте проект и нажимайте на кнопку. Вы увидите, что в режиме runtime создаются новые кнопки типа TToolButton на панели ToolBar1, при нажатии на которые будет вызываться процедура BtnClick.

Вот вы и создали компонент в режиме runtime, который отображается на ToolBar. Всего хорошего.

 

 

Advertisements

Один ответ to “Узелок впрок! Как создать кнопку в режиме runtime, которая бы отображалась на компонетне ToolBar?”

  1. Reblogged this on SLAVA NAZARYAN and commented:
    даваете абменим пунктв если можно?????

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

 
%d такие блоггеры, как: