Главная страница
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.017 c
7-31016
3d[Power]
2002-02-12 00:07
2002.06.10
helpfile


8-30917
Basoil
2002-01-21 10:07
2002.06.10
Склеить несколько WAV файлов.


4-31034
chernoruk
2002-04-05 18:22
2002.06.10
Используя процедуру Send


14-31013
drpass
2002-05-05 00:07
2002.06.10
С праздником


1-30898
Arhangel
2002-05-29 21:09
2002.06.10
Мастера нужна ваша помощь:)