Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Спасибо !

---

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

Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c