Перемещение кнопок по тулбару

← →
Переяслов Григорий © (2004-03-18 18:47) [0]

Привет, мастера.
Мне необходмо управлять положением кнопок на тулбаре в рунтайме. Кнопки создаются динамически, порядок входа их может быть любой, но порядок отображения строго определенный. Как изменить позицию кнопки так, чтобы она оказалась на нужном мне месте.
Кнопки создаю так:

tbButtons : TToolBar;
Btn : TToolButton;

begin
...
Btn := TToolButton.Create(tbButtons);
Btn.Parent := tbButtons;
Btn.Style := tbsButton;

← →
Defunct © (2004-03-18 19:01) [1]

Если размер всех кнопок одинаковый, то поможет:

ToolBtn.Left := (Позиция - 1)*Ширина

← →
Переяслов Григорий © (2004-03-18 19:04) [2]

> Defunct © (18.03.04 19:01) [1]
К сожалению, не катит

← →
Переяслов Григорий © (2004-03-18 19:23) [3]

Присваиваю
ToolBtn.Left := <чего-то>
потом делаю
Btn.Parent := tbButtons;
после чего Left = 0

← →
just me (2004-03-18 20:13) [4]

Попробуй динамически создавать вместе с TToolButton соответствующие TAction и вязать TToolButton на них. Теперь у TAction есть свойство Index, которому можно значение присваивать

Перемещение кнопок по тулбару Найти похожие ветки