Главная страница
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.014 c
14-70437
fighter@str
2003-04-30 18:56
2003.05.22
Жесткий диск IBM


1-70321
Filat
2003-05-07 20:27
2003.05.22
RxDBLookupCombo в режиме ReadOnly, почему?


3-70186
Separator
2003-04-28 10:51
2003.05.22
и BLOB


1-70241
Deadlock
2003-05-12 05:31
2003.05.22
Переопределение свойств


1-70239
FOZi
2003-05-12 01:45
2003.05.22
Заголовок в таскбаре Application.Title?