Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Как добавить обработчик события и само событие?   Найти похожие ветки 

 
Eugem ©   (2006-04-04 00:58) [0]

Подскажите, пожалуйста как добавить обработчик события, к каждому пункту PopupMenu, если эти пункты создаются во время запуска приложения. Вот часть кода:

procedure TForm1.FormActivate(Sender: TObject);
var ff:string;n:integer;
begin
n:=1;
CoolTrayIcon1.IconVisible:=true;
ff:=datetostr(now);
form1.Edit4.Text:=ff[1]+ff[2];
form1.Edit5.Text:=ff[4]+ff[5];
form1.Edit6.Text:=ff[7]+ff[8]+ff[9]+ff[10];
assignfile(setf,SetFile);
reset(setf);
while not(Eof(setf)) do begin  //чтение настроек программы из файла
readln(setf,stri);
NewItem := TMenuItem.Create(Self);
NewItem.Caption := stri; //Создание нового пункта
NewItem.Name:="Nk"+IntToStr(n);n:=n+1;
{ add the new item to the Windows menu }
form1.PopupMenu1.Items.Add(NewItem);
end;
closefile(setf);
end;


Т. е. создавать пункты я могу, а вот как сделать так, чтобы при нажатии созданных пунктов выполнялись различные инструкции я не знаю.


 
Юрий Зотов ©   (2006-04-04 02:44) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342



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

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

Наверх




Память: 0.46 MB
Время: 0.047 c
2-1143606526
romychk
2006-03-29 08:28
2006.04.16
Аналог TQuery без BDE


15-1143376961
terdaw
2006-03-26 16:42
2006.04.16
Пожалуйста помогите разобраться с задачей!


15-1143032261
Физик
2006-03-22 15:57
2006.04.16
На етом форуме можна зделать штобы ответы приходили на mail


3-1140422891
evgenij_
2006-02-20 11:08
2006.04.16
имя таблицы с которой работал ADOQuery


15-1143474528
Empleado
2006-03-27 19:48
2006.04.16
С прискорбием ...