Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Динамическое добавление итемов в MainMenu

Автор: Pentium02 6.10.2006, 22:30

Как в ходе работы прораммы добавлять в MainMenu итемы?

Автор: Palladin 6.10.2006, 22:46

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  m,pm,sm:tmenuitem;
begin
  m := TMenuItem.Create(MainMenu1);
  m.Caption := 'Меню';
  mainmenu1.Items.Add(m);

  pm := TMenuItem.Create(m);
  pm.Caption := 'Пункт меню';
  m.Insert(0,pm);

  sm := TMenuItem.Create(pm);
  sm.Caption := 'Подменю';
  pm.Insert(0,sm);
end;

Made in ZERO

Автор: Pentium02 6.10.2006, 23:11

Ага, спасибо получилось.

Автор: Pentium02 6.10.2006, 23:38

Тепрь другая проблема. А как обрабатывать нажатие на добавленый пункт?

Автор: SPrograMMer 7.10.2006, 00:23

Цитата(Pentium02 @ 6.10.2006, 23:38

)

А как обрабатывать нажатие на добавленый пункт

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  m,pm,sm:tmenuitem;
begin
 ....
  pm := TMenuItem.Create(m);
  pm.Caption := 'Пункт меню';
  pm.OnClick:=ClickOnMenu;  /// !!!!!
  m.Insert(0,pm);
...
end;

///
Procedure TForm1.ClickOnMenu(Sender:TObject);
begin
 ShowMessage('Click!!!');
End;

Автор: Zero 7.10.2006, 06:54

Цитата(Pentium02 @ 7.10.2006, 00:38

)

А как обрабатывать нажатие на добавленый пункт?

Внизу, где написан вопрос А здесь смотрели? Прямо первым пунктом темка, хотя скорее всего во всех это есть...http://forum.vingrad.ru/index.php?showtopic=113983&view=findpost&p=870937

Автор: Pentium02 7.10.2006, 12:20

Блин, понимаете, я это делаю, чтоб добавлять закладки (ну типа как в браузере) и не известно сколько будет там пунктов, вот в чё проблема.

Добавлено позже
Ой, всё разобрался сам. Большое всем спасибо, кто помогоал!