Главная страница
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.016 c
8-84443
TrollXP
2003-03-09 17:33
2003.06.26
Мультимедия


14-84519
Nox
2003-06-01 13:39
2003.06.26
DISABLEKERNEL


1-84257
zolotov
2003-06-12 12:20
2003.06.26
Customize ToolBar


14-84648
maxk
2003-06-04 19:01
2003.06.26
webbrowser или.... ???


1-84258
Far
2003-06-13 01:28
2003.06.26
QReport