Текущий архив: 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.013 c