Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TToolBar добавление кнопки, в run-time 
V
    Опции темы
GePo
Дата 4.8.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
Нужно во время выполнения программы( во время загрузки) программно добавлять кнопки ToolBar. TToolBar.Buttons является далеко не TList и метода Add у него нет, других методов я не нашел. Пробовал так:
Код

  for i := 0 to L.Count - 1 do
    begin
      But := TToolButton.Create(MainToolBar);
      But.Parent := MainToolBar;
      But.Left := tbSeparator.Left + tbSeparator.Width + i*(MainToolBar.ButtonWidth + 1) + 1;
      But.Top := 0;
      But.Tag := i;
    end;

но на всех уже имеющихся кнопках исчезают картинки.
Как быть?
Перегружать TToolBar не очень бы хотелось( но в нем есть все необходимые фукнции)

Это сообщение отредактировал(а) GePo - 4.8.2006, 15:47
--------------------
PM MAIL WWW   Вверх
Alexeis
Дата 4.8.2006, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
GePo, Вот это не понятно
Цитата(GePo @  4.8.2006,  15:14 Найти цитируемый пост)
но всех уже исчезающих кнопках исчезают картинки.




--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
GePo
Дата 4.8.2006, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
alexeis1, сорри, исправил  smile 
--------------------
PM MAIL WWW   Вверх
Snowy
Дата 4.8.2006, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

But.SetToolBar(MainToolBar);
PM MAIL   Вверх
GePo
Дата 4.8.2006, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
Snowy, у меня такого нет.
BDS 2006
--------------------
PM MAIL WWW   Вверх
Snowy
Дата 4.8.2006, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
А, ну да. У тебяж не свой компонент. Нужно просто вскрыть protected сабклассированием:
Код

type
  TToolButton = class(ComCtrls.TToolButton) end; // вскрываем protected

...

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  But: TToolButton;
begin
  But := TToolButton.Create(ToolBar1);
  But.ImageIndex := Random(ImageList1.Count);
  But.SetToolBar(ToolBar1);
end;
PM MAIL   Вверх
GePo
Дата 4.8.2006, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
Snowy, 
во, спасибо. Теперь все работает
--------------------
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1011 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.