Красоту навожу...

← →
МИФИст (2002-07-24 21:13) [0]

Как поместить MainMenu в ControlBar как это сделано в Delphi"ах или Internet Explore?

← →
ППавел (2002-07-24 21:23) [1]

Есть в MainMenu или ControlBar такая закладка в свойствах где указываешь что использовать под MainMenu покапайся найдешь.

← →
RV (2002-07-24 21:30) [2]

женщину, на кнопку ОК, 800х600хТруКалор, с обновлением из интернета, и возможностью слайд-шоу из ранее закачанных

МИФИст©, прошу прощения, настроение такое
очень прошу прощения...

← →
МИФИст (2002-07-24 23:10) [3]

>ППавел
Буду очень признателен, если по точнее, т.к. я только что порыл и ничего не нашёл...

>RV ©
Что ж бывает...тогда уж надо бэкграундом по всей форме женщину размазать =)

← →
Юрий Зотов (2002-07-24 23:32) [4]

На форму кладете меню и создаете все его пункты (но НЕ назначаете его форме, как MainMenu). На эту же форму кладете ControlBar, а на него - ToolBar. На тулбаре создаете одну кнопку, выделяете ее и в Инспекторе объектов видите, что у этой кнопки есть интересное свойство - MenuItem. Задумываетесь - что бы это могло значить?

Далее жмете F1 и читаете про TToolButton.MenuItem. И за 10 минут делаете то самое меню, которое "сделано в Delphi"ах или Internet Explore". В хелпе даже и пример есть.

А насчет женщины - так что там о них? Интересно ведь...

← →
Proton (2002-07-25 05:33) [5]

пример тут на форуме был пару месяцов назад был
одна процедура как раз делала то что вам надо
только не забудь showcaptions в true поставить

Alx2 © (29.05.02 08:12)
В какой-то мере спасет компонент 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;

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

← →
Alx2 (2002-07-25 07:49) [6]

>Tag := K + 1;
Вот это, пожалуй, лишнее :)
(Выкинуть забыл)

← →
ShuraGrp (2002-07-25 10:34) [7]

ToolBar.Menu = MainMenu. Form.Menu = Nil

← →
Alx2 (2002-07-26 08:05) [8]

← →
МИФИст (2002-07-26 12:02) [9]

Спасибо разобрался, вот только появилась другая проблема, помещаю MainMenu в ТoolBar, и на Вкладках появляються подчёркнутые символы, хотя я не вставлял символы &, как их убрать?

Красоту навожу... Найти похожие ветки