Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.10.2006, 13:04
johnos johnos вне форума
Прохожий
 
Регистрация: 23.10.2006
Сообщения: 2
Репутация: 10
По умолчанию FindComponent

Привет всем!
Такой вопрос! На форме есть 5 CheckBox'ов с именами CheckBox1 .. CheckBox5. Когда делаю
I:=0;
while I<5 do begin
S:='CheckBox'+IntToStr(I+1);
with (FindComponent(S) as TCheckBox) do Checked:=True
Inc(I)
end
на строчке with (FindComponent(S) as TCheckBox) do Checked:=True выдается сообщение об ошибке:
Project CBReg.exe raised exception class EAccessViolation with message 'Access violation at address 004045A8 in module 'CBReg.exe'. Write of address 00000080'. Process stopped. Use Step or Run to continue.
т.е. судя по всему не находится компонент.
ПОЧЕМУ?!?!

Если сделать, например, в обработчике события OnMouseMove для CheckBox1 следующее
TCheckBox(FindComponent('CheckBox'+IntToStr(1))).C hecked:=True
все проходит отлично. Ставится галочка без ошибок...

Последний раз редактировалось johnos, 24.10.2006 в 13:35.
Ответить с цитированием
  #2  
Старый 24.10.2006, 15:09
johnos johnos вне форума
Прохожий
 
Регистрация: 23.10.2006
Сообщения: 2
Репутация: 10
По умолчанию

Народ, отбой. Разобрался. У меня в этой же процедуре был оператор with Query, где Query - компонент ADOQuery. Судя по всему, бага была здесь. Когда убрал with все заработало.
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram