Текущий архив: 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.019 c