Не знаю как программно создать меню

← →
rex (2002-08-02 08:23) [0]

Не бейте сильно, но не знаю :(
Есть на форме MainMenu и мне необходимо программно создавать в нем пункты (подпункты) и так, чтобы на клик срабатывало собственное событие ? Подскажите пожалуйста, в форумах ничего не нашёл.

← →
iva (2002-08-02 08:39) [1]

Попробуй почитать http://www.delphikingdom.com/helloworld/runtime_comp.htm.

← →
Smok_er (2002-08-02 09:37) [2]

Файл не найден :(

← →
iva (2002-08-02 09:43) [3]

Мешает точка в конце ссылки. Убери и попадешь.

← →
Vitaly (2002-08-02 10:57) [4]

Посмотри и подделай:
Menu: TMainMenu; ... BuildMenu( menu.Items, "Menu" ); ... procedure TfMain.BuildMenu(m: TMenuItem; sec: string); var i: integer; mi: TMenuItem; mc: string; begin i := 1; while true do begin mc := ini.ReadString(sec, intToStr(i), ""); if mc <> "" then begin mi := TMenuItem.Create(self); mi.Caption := mc; m.Add(mi); mc := sec + "." + mc; if ini.ReadString(mc, "tip", "") = "submenu" then BuildMenu(mi, mc) else mi.OnClick := ClickMenu; inc(i); end else break; end; end;

← →
rex (2002-08-02 11:58) [5]

Всем спасибо. Посмотрю что получится !!!

← →
777 (2002-08-02 12:12) [6]

Можно просто сделать так:
CODE>MainMenu1.Items[0].Add(NewItem("NewMenuItem",0,false,true,MenuItemClick,0,"NewMenuItem"+IntToStr(MainMenu1.Items.Count)));<

← →
777 (2002-08-02 12:14) [7]

чё это с тегами?
MainMenu1.Items[0].Add(NewItem("NewMenuItem",0,false,true,MenuItemClick,0,"NewMenuItem"+IntToStr(MainMenu1.Items.Count)));

← →
Smok_er (2002-08-02 12:40) [8]

> iva © (02.08.02 09:43)
> Мешает точка в конце ссылки. Убери и попадешь.
Сморозил. просто щелкнул не глядя на ссылку :). Кстати, как создавать понятно. А вот как удалить? Пример желателен для ToolBar2000

← →
rex (2002-08-03 19:46) [9]

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

← →
Старый паскалист (2002-08-03 19:52) [10]

Sender as TMenuItem

← →
rex (2002-08-03 20:01) [11]

2Старый паскалист
А куда это вставить, извините за вопрос ?

← →
Старый паскалист (2002-08-03 20:12) [12]

В обработчик нажатия:

MenuItem.OnClick := Form1OrSomethingElse.MenuItemClick;

procedure TForm1OrSomethingElse.MenuItemClick(Sender: TObject);
begin
(Sender as TMenuItem) - это тот пункт меню, к-рый тебе нужен
end;

← →
rex (2002-08-03 20:34) [13]

Спасибо !

Не знаю как программно создать меню Найти похожие ветки