Вверх ↑
Ответов: 4755
Рейтинг: 536
#1: 2016-07-22 10:44:03 ЛС | профиль | цитата
И что, мой вариант чем не инициализирован
#pas
procedure THIButton._OnClick;
var dt:TData;
begin
if Assigned(_data_Data.Event) then
begin
dt := ReadData(dt, _data_Data);
_hi_OnEvent(_event_onClick, dt);
end else
_hi_OnEvent_(_event_onClick,_prop_Data);
end;

по мне так тот же х.. в другой руке

карма: 7
0