Скачать: CL | DM;

Добавление OnClick для меню в run-time   Найти похожие ветки 

← →
prorok2   (2003-06-14 13:51) [0]

Доброго времени суток, мастера!
Вопрос такой: создаю в run-time пункты Popup меню (само меню на форме есть уже). Пункты создаются. Замечательно. Но как назначить этим пунктам событие на OnClick. Написал процедуру, которая должна выполняться при выборе созданного пункта, но как приципить к нему эту процедуру?

---

← →
titnn ©   (2003-06-14 14:01) [1]

думаю полнее ответа быть не может

procedure tMainf.MenuAdd;
var i: integer;
menuitem: TMENUITEM;
str: string;
begin
myMenu.Clear;
for i:=1 to 50 do begin
str:=FavReg.ReadString("Menu",intToStr(i),"");
if str<>"" then begin
menuitem:=TMenuItem.Create(myMenu);
menuitem.Caption:="# "+intToStr(i)+" - "+str;
menuitem.tag:=i;
menuitem.OnClick:=myMenuClick;
MyMenu.Add(menuitem);
end;
end;
menuitem:=TMenuItem.Create(myMenu);
menuitem.Caption:="-";
MyMenu.Add(menuitem);

menuitem:=TMenuItem.Create(myMenu);
menuitem.Caption:="<None>";
menuitem.tag:=-1;
menuitem.OnClick:=MyMenuClick;
myMenu.Add(menuitem);
end;

---

← →
Юрий Зотов ©   (2003-06-14 14:09) [2]

Может. Вот здесь:
http://www.delphikingdom.com/helloworld/runtime_comp.htm

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c