Главная страница
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.046 c
14-84750
agentru
2003-06-05 23:13
2003.06.26
Лучший сайт?


1-84301
Нуу
2003-06-07 03:14
2003.06.26
Совмещение оператора with с функцией Add


6-84487
Kedis
2003-04-22 09:05
2003.06.26
Outlook Express


1-84095
megadeth
2003-06-10 10:42
2003.06.26
TMainMenu -> SaveToFile(...) ?


3-83861
Ditrix
2003-06-02 11:28
2003.06.26
установка фильтра в IBQuery