Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Как поместить главное меню в ToolBar?   Найти похожие ветки 

 
Mir ©   (2003-05-08 06:43) [0]

Как поместить главное меню в ToolBar? (Если не понятен вопрос - посмотрите на главное меню в делфи - его можно перетаскивать куда угодно. Как это реализовать?)


 
andrey_pst ©   (2003-05-08 06:55) [1]

Выкладываешь на форму TMainMenu и TToolbar
У Toolbar в свойство Menu устанавливаешь в MainMenu1
У Form1 в свойстве Menu удаляешь MainMenu1
все


 
Mir ©   (2003-05-08 07:38) [2]

>andrey_pst Спасибо


 
Radionov Alexey ©   (2003-05-08 08:35) [3]


procedure AssignToolBarMenu(ToolBar: TToolBar; MENU: TMainMenu; AutoSize: Boolean = True);
var K, CW: Integer;
begin
CW := 0;
for K := MENU.Items.Count - 1 downto 0 do
with TToolButton.Create(ToolBar) do
begin
Parent := ToolBar;
Grouped := True;
MenuItem := MENU.Items[K];
AutoSize := True;
Tag := K + 1;
inc(CW, Width);
end;
if AutoSize then
ToolBar.Width := CW;
end;


 
Radionov Alexey ©   (2003-05-08 08:38) [4]

>Radionov Alexey © (08.05.03 08:35)
Забыл добавить, что это для D5.
В старших версиях все просто (andrey_pst ©).



Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
14-70521
j_sim
2003-05-05 09:21
2003.05.22
Проблема, пишу прогу для работы со сканером


8-70400
Unicorn
2003-02-11 09:47
2003.05.22
Нужно сделать несколько анимированных кнопок


1-70300
Vin_Ghost
2003-05-12 20:21
2003.05.22
Как динамически объявить объект класса


14-70457
LOX
2003-05-03 12:23
2003.05.22
explorer.exe


14-70523
voland0
2003-05-05 10:13
2003.05.22
Переход с 4 версии на 7 - ю