Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 4668
Рейтинг: 420
#1: 2010-12-03 21:20:23 ЛС | профиль | цитата
Что-то мне кажется, что вот это неверно, если учесть что тут приставка H (Handle):
#pas
procedure THIPolymorphMulti.HSelect;
begin
FChild := THiEditPolyMulti(FChilds.Objects[ToInteger(Data)]); //это
if FChilds.IndexOfObj(FChild) = -1 then
FChild := nil
else
_hi_OnEvent(FChild.Works[Index], Data);
end;
А должно быть вот так:
#pas
procedure THIPolymorphMulti.HSelect;
begin
FChild := THiEditPolyMulti(ToInteger(Data));
if FChilds.IndexOfObj(FChild) = -1 then
FChild := nil
else
_hi_OnEvent(FChild.Works[Index], Data);
end;
Не правда ли, Dilma
карма: 10
1
Голосовали:Dilma
vip
#1.1контекстная реклама от партнеров
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)