Вопрос по TMainMenu

Белов Владимир

Дата: 26.01.2003 14:13:05

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

File
Open
Save
Close
Edit
Copy
Cut
Paste
My Menu
- Вот сюда и нужно добавить

Как это указать.

eNose

Дата: 27.01.2003 08:10:25

MI := MainMenu.Find('My Menu');
Ну а потом создаешь свой пункт и в качестве родительского указываешь MI.

LexusR

Дата: 27.01.2003 08:24:11


procedure TForm1.FillMyMenu;

var

  NewItem : TMenuItem;

begin

  MyMenu.Clear;

  NewItem := TMenuItem.Create(Self);

  NewItem.Name    := 'MyItem1';

  NewItem.Caption := 'My First Item';

//NewItem.OnClick := MyOnClickProcedure1; обработка выбора пункта

// procedure MyOnClickProcedure(Sender : TObject) должна иметь место

  MyMenu.Add(NewItem);

  NewItem := TMenuItem.Create(Self);

  NewItem.Name    := 'MyItem2';

  NewItem.Caption := 'My Second Item';

//NewItem.OnClick := MyOnClickProcedure2; 

  MyMenu.Add(NewItem);

// .......

end;

LexusR

Дата: 27.01.2003 08:31:09


...MyMenu.Clear это если полностью нужно создать все подпункты заново

а если просто добавить то чистить не надо 

а добавлять после существующих пунктов

через MyMenu.Add(NewItem);

Белов Владимир

Дата: 27.01.2003 10:08:54

>LexisR
Это просто создание меню и его динамическо заполнение.
А если в определенный пункт MainMenu