Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TMainmenu [D6, D7, WinXP]

Leonid © (2004-10-27 14:41:00)
Подскажите, как добавить на стадии выполнения моей программы новые пункты меню.

Например: Открыть-> с:\111.txt
d:\222.txt
..........

Leonid (2004-10-27 15:43:00) [1]
Спасибо Snake1977

MetalFan (2004-10-27 15:39:00) [2]

> он мне ошибку выдаёт

вот гад!

snake1977 (2004-10-27 15:38:00) [3]
пардон
здесь
m.Caption:=ChangeFileExt(ExtractFileName(List[i]),'');
естественно пишеш чего хош :)
просто кусок кода вырезал из проекта рабочего :)

snake1977 (2004-10-27 15:37:00) [4]
Var m:TMenuItem;
.....
m:=TMenuItem.Create(MainMenu1);
m.OnClick:=OnClickProc;
m.Caption:=ChangeFileExt(ExtractFileName(List[i]),'');
MainMenu1.Items[0].Add(m);
.....

В строке MainMenu1.Items[0].Add(m);
можеш кокретно указать к какому пункту будут добавляться
например у тебя есть пункт N1
то
n1.Add(m)

Reindeer Moss Eater (2004-10-27 15:36:00) [5]
> Пример можно.

Согласен. Давай сюда свой пример.
Хотя зачем он мне?

Leonid (2004-10-27 15:31:00) [6]
Пример можно.
А то что-то creat вызаваю он мне ошибку выдаёт

Reindeer Moss Eater (2004-10-27 14:59:00) [7]
Все создается вызовом конструктора.
Имя у него - Create

Leonid (2004-10-27 14:57:00) [8]
Как ?

Reindeer Moss Eater (2004-10-27 14:52:00) [9]
Создай их.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »