Главная страница
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
1-84175
konstantinov
2003-06-11 19:55
2003.06.26
Динамическое создание TFont, TPen


7-84774
Anonimus
2003-04-17 11:15
2003.06.26
Перезагрузка......


14-84555
LiLa Ananda
2003-06-06 09:58
2003.06.26
MONEY, MONEY, ... Нужны идеи!!!


1-84225
TuZ
2003-06-12 23:09
2003.06.26
Как получить что-то вроде TDirectoryDialog?


1-84066
Dr. Andrew
2003-06-07 13:30
2003.06.26
Где ошибка при завершении Hook и как занести данные в TPoint?