Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

findcomponent на другой форме [D6, Win2k]


denis24 ©   (2004-11-25 13:43:00) 

Помогите пожалуста!
Как сделать сабж
Пишу на форме form1(qrimage находится на форме form2)
with TQRImage(FindComponent('QRImage1) do
begin
 Picture.Graphic := TJPEGImage.Create;
 Picture.Graphic.LoadFromStream(S);
end;

Вылетает "Acces violation....."


ASoft   (2004-11-25 15:47:00) [1]

АштвСщьзщтуте nil возвращает[12]
Я в том плане, что Form2.FindComponent() уже пройденый этап, поэтому спросил


GuAV   (2004-11-25 15:24:00) [2]

ASoft   (25.11.04 15:16) [11]
Нет же не в этом дело АштвСщьзщтуте nil возвращает.


ASoft   (2004-11-25 15:16:00) [3]

>Вылетает "Acces violation....."[0]
Form2 до того, как компонент искать, создана?


Anatoly Podgoretsky   (2004-11-25 14:59:00) [4]

begin...end ©   (25.11.04 13:52) [4]
Вот в твоем примере есть объект и его контекст и это будет правильно работать, о чем и говорится в 3.


Reindeer Moss Eater   (2004-11-25 14:59:00) [5]

Если Find вызван у правильного экземпляра и с правильным аргументом, то результатом будет валидный TComponent и отсутствие AV
В противном случае результатом будет nil и присутствие AV.

А код один и тот же.

Ты же не удивляешся, почему не можешь играть так же как Роналдо имея такой же как у него мяч?


Anatoly Podgoretsky   (2004-11-25 14:57:00) [6]

denis24   (25.11.04 14:47) [6]
Нормальный пример, а тобой покусан, что бы доказать его неправильность. Вот твоей пример неправильный и не ссылайся при этом на справку, в ней как все в порядке.


Reindeer Moss Eater   (2004-11-25 14:48:00) [7]

А никак. Правильный пример.


denis24   (2004-11-25 14:47:00) [8]

а как же пример с хелпа?
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
   begin
     Left := 10;


Reindeer Moss Eater   (2004-11-25 13:53:00) [9]

Это метод-функция.


begin...end   (2004-11-25 13:52:00) [10]


> denis24   (25.11.04 13:43)

Form2.FindComponent() ?


Anatoly Podgoretsky   (2004-11-25 13:51:00) [11]

FindComponent не функция, а метод и не может работь в отрыве от объекта, которого здесь не наблюдается.


denis24   (2004-11-25 13:50:00) [12]

а как же пример с хелпа?
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
   begin
     Left := 10;


Reindeer Moss Eater   (2004-11-25 13:45:00) [13]

FindComponent - функция.
Она возвращает результат.


Наверх

Титульная страница Поиск, карта сайта Написать письмо