Вверх ↑
Администрация
Ответов: 15294
Рейтинг: 1518
#1: 2009-04-26 15:38:37 ЛС | профиль | цитата
3042, читаем сначало это Код

3042 писал(а):
Почему же число не хочет считываться?

потому что делать надо по аналогии с методами, которые в пакете уже несколько лет присутствуют и никаких проблем не вызывают.

#pas
function THIMainForm._onClose;
begin
...
if Accept and(ToIntegerEvent(_data_Close)<>0) then exit;
...
end;

карма: 26
0