TMainmenu

← →
Leonid (2004-10-27 14:41) [0]

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

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

← →
Reindeer Moss Eater © (2004-10-27 14:52) [1]

Создай их.

← →
Leonid (2004-10-27 14:57) [2]

Как ?

← →
Reindeer Moss Eater © (2004-10-27 14:59) [3]

Все создается вызовом конструктора.
Имя у него - Create

← →
Leonid (2004-10-27 15:31) [4]

Пример можно.
А то что-то creat вызаваю он мне ошибку выдаёт

← →
Reindeer Moss Eater © (2004-10-27 15:36) [5]

>Пример можно.

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

← →
snake1977 (2004-10-27 15:37) [6]

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)

← →
snake1977 (2004-10-27 15:38) [7]

пардон
здесь
m.Caption:=ChangeFileExt(ExtractFileName(List[i]),"");
естественно пишеш чего хош :)
просто кусок кода вырезал из проекта рабочего :)

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

вот гад!

← →
Leonid (2004-10-27 15:43) [9]

Спасибо Snake1977

TMainmenu Найти похожие ветки