Главная страница
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.015 c
3-30709
Sour
2002-05-18 10:07
2002.06.10
look up поля


3-30727
chmz_vitas
2002-05-13 14:13
2002.06.10
ProgressBar - отображение процесса загрузки


3-30682
maxim2
2002-05-17 15:42
2002.06.10
Есть ли обратная функция Chr()


3-30717
Валя
2002-05-18 15:36
2002.06.10
Хелп!!!


1-30863
Невидимка
2002-05-28 09:26
2002.06.10
Не работает RTTI для объектов, экспортируемых из DLL