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

Вниз

Создание пунктов меню в runtime?   Найти похожие ветки 

 
XMblPb   (2002-12-01 15:23) [0]

Как создавать пункты главного меню в рантайм - необходимо реализовать пункт меню Recent document (недавно открытые документы)? Мастера, подскажите пожалуйста? Заранее благодарен за любую помощь...


 
LongIsland ©   (2002-12-01 15:38) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TMenuItem;
begin
NewItem := TMenuItem.Create(mm);
try
NewItem.Caption := "Do this";
mm.Items[0].Insert(0, NewItem);
except
NewItem.Free;
ShowMessage("Блин, не вышло!");
end;
end;


Если у Items нет индекса, то добавляется пункт в верхнее меню


 
XMblPb   (2002-12-01 15:45) [2]

2LongIsland
Весьма и весьма благодарен!



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

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

Наверх




Память: 0.46 MB
Время: 0.021 c
4-36488
PycUS
2002-11-01 01:24
2002.12.12
Рабочий стол


1-36246
Cranium
2002-12-02 03:29
2002.12.12
Контроль ввода...


1-36179
iNew
2002-12-04 08:12
2002.12.12
Вопрос по компоненте AsyncPro. Не могу понять почему не


6-36314
Andrew2
2002-10-17 13:46
2002.12.12
ICQ


3-35978
Tundra
2002-11-19 14:01
2002.12.12
XlReport