IMHO.WS - Показать сообщение отдельно - Добавление нескольких TMenuItem в PopupMenu

f00rd · 17.02.2004, 16:43

Код:

 procedure ItemClick(i:integer);
 begin
  ...
 end;

a[Length(a)-1].OnClick:=ItemClick;

Выдает ошибку о несовместимости типов...

17.02.2004, 16:43	# 5
f00rd ::VIP:: Регистрация: 11.06.2003 Адрес: Там... Сообщения: 236	Код: procedure ItemClick(i:integer); begin ... end; a[Length(a)-1].OnClick:=ItemClick; Выдает ошибку о несовместимости типов...