Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
6-30952
Vas1
2002-03-27 09:32
2002.06.10
Как определить, что ко мне по сети кто-то подцепился


14-30984
Erlan
2002-05-07 08:58
2002.06.10
насчет FAT32 и NTFS


4-31049
CrazyTemo
2002-04-09 10:33
2002.06.10
processor frequency


1-30742
Great DAN
2002-05-30 12:10
2002.06.10
Печать


3-30674
Vint
2002-05-17 11:17
2002.06.10
Int64