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

Вниз

Расположение MainMenu   Найти похожие ветки 

← →
ZEE ©   (2002-05-29 01:12) [0]

Подскажите можно ли (если да - то как) поменять положение MainMenu формы? Например переместить его вниз или вообще расположить где-нибудь посередине.

---

← →
KilkennyCat ©   (2002-05-29 05:54) [1]

нет.
при его отрисовке используется DrawMenuBar(WindowHandle) в USER32.DLL

---

← →
Alx2 ©   (2002-05-29 08:12) [2]

В какой-то мере спасет компонент ToolBar (вкладка Win32).
На нем можно сымитировать меню. Вот как это делается:


Procedure AssignToolBarMenu(Const ToolBar : TToolBar; Const 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;


То есть, на форму (пусть она называется Form1) кидаешь ControlBar (вкладка Additional). Размещаешь где хочется, на него кидаешь ToolBar (в этом примере он имеет имя ToolBar1). В методе
OnCreate формы вызываешь

AssignToolBarMenu(ToolBar1, Form1.Menu);
Form1.Menu := Nil;


И все должно получиться :)

---

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

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

Наверх

Память: 0.47 MB
Время: 0.01 c