Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-84013
xxxCrazyManxxx
2003-05-29 10:34
2003.06.26
Помогите с командой CONVERT


3-83948
me2
2003-06-04 12:35
2003.06.26
Удаление записи из набора данных


14-84540
Asteroid
2003-06-07 02:09
2003.06.26
Недокументированный API


3-84022
Александр Николаевич
2003-05-30 12:50
2003.06.26
UPDATE НА БОЛЬШОЙ ОБЪЕМ ДАННЫХ В INTERBASE


14-84571
лавра
2003-06-07 23:10
2003.06.26
Вес