Как добавить обработчик события и само событие? [D5, NT4, Win2k, WinXP]
Eugem © (2006-04-04 00:58:00)
Подскажите, пожалуйста как добавить обработчик события, к
каждому пункту 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:00) [1]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
Наверх 
ЧАТ |
Орешник |
|
