Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c