Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.01;
Скачать: CL | DM;

Вниз

Проблема работы с TMainMenu   Найти похожие ветки 

 
Volf_555   (2005-12-12 18:56) [0]

Есть MainMenu1. В нём есть несколько пунктов. Один из них называется "Тип".
Как мне работать с подпунктами "Тип" - то есть как удалять и добавлять новые значения?


 
umbra ©   (2005-12-12 19:05) [1]

динамически (во время работы программы) или во время написания программы?


 
Volf_555   (2005-12-12 19:07) [2]

динамически


 
umbra ©   (2005-12-12 19:17) [3]

см. справку по функциям NewItem и NewSubMenu


 
Volf_555   (2005-12-13 18:13) [4]

Пишу следующий код, который должен добавить пункты в главное меню:

procedure TForm1.Button1Click(Sender: TObject);
var
a:TMenuItem;
begin
a:=TMenuItem.Create(MainMenu1);
a.Caption:="Проверка";
MainMenu1.Items.Add(a);
a.Free;
end;


Но код не работает... Что я не так написал?!


 
umbra ©   (2005-12-13 18:26) [5]


> Что я не так написал?!
>

Вот это
a.Free;
Поскольку любой объект - это ссылка, то когда происходит  MainMenu1.Items.Add(a);, то содержимое объекта а не копируется. И в главное меню добавляется результат TMenuItem.Create(MainMenu1), а затем сразу же уничтожается. Уничтожать динамически созданные пункты меню надо только когда этот пункт уже не нужен


 
Volf_555   (2005-12-13 18:28) [6]

ЗЫ: Если запустить программу и несколько раз понажимать на кнопку, то можно заметить что новый пункт добавляется и сразу удаляется!

Как такое может быть?

Никакого дополнительного обработчика события я не писал!


 
Volf_555   (2005-12-13 18:29) [7]

Thank! Тогда всё ясно!


 
Volf_555   (2005-12-13 18:44) [8]

Пишу следующее (где w - это список строк TStringList):

a:=TMenuItem.Create(MainMenu1);

for e:=0 to w.Count-1 do
begin
 a.Clear;
 a.Caption:=w.Strings[e];
 MainMenu1.Items.Items[2].Items[e].Add(a);
end;


Выскакивает ошибка "Menu inserted twice" - Меню вставлено дважды.

Как мне в цикле изменить обработчик события, чтобы каждая строка последовательно добавилась в меню?

ЗЫ: добавляется только первая строка и потом выскакивает ошибка


 
Плохиш ©   (2005-12-13 18:59) [9]


> Volf_555   (13.12.05 18:44) [8]

Вот это

> a:=TMenuItem.Create(MainMenu1);

Надо перенести в тело цикла вместо a.Clear



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

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

Наверх




Память: 0.48 MB
Время: 0.04 c
3-1131680302
Rat
2005-11-11 06:38
2006.01.01
Почему Delphi и Access конфликтуют.


6-1127146757
Express
2005-09-19 20:19
2006.01.01
Socket


4-1130654380
stenford
2005-10-30 09:39
2006.01.01
стандартное меню Windows


8-1122266318
Sankez
2005-07-25 08:38
2006.01.01
Как можно проиграть avi на рабочем столе ?


1-1133695072
Е.
2005-12-04 14:17
2006.01.01
OLEContainer