Главная страница
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.022 c
3-70165
jonymoto
2003-05-02 11:12
2003.05.22
Как соединиться с Excel и забрать от туда данные!


3-70128
rosl
2003-04-30 07:02
2003.05.22
UpdateSQL


3-70184
Инна
2003-05-02 19:14
2003.05.22
ADODataSet


14-70441
thing
2003-05-01 20:26
2003.05.22
Графика


1-70278
wwwasya
2003-05-12 17:35
2003.05.22
Application.CreateForm vs TForm.Create