VPF::Как обратиться к объекту - Форум программистов

SanLLIer

Дата 8.2.2011, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 9.7.2008

Репутация: нет
Всего: нет

На форме есть PageControl. По ходу динамически создаю в нем табы.

Код


      tab:=TTabSheet.Create(Self);
      tab.Caption:='...';  
      tab.PageControl:=mainForm.PageControl;

Потом динамически создаю на этом табе кнопки и прочие контролы.

Код


   with TImage.Create(tab) do
      begin
        Parent:=TabSheet;
        Height:=50;
        Width:=50;
        Stretch:=false;
        Top:=1;
        Left:=tab.Width-100; 
        Name:='img'+index;     
      end;

Собственно вопрос в том как мне теперь обратиться к этим созданным компонентам. В частности к Image`у?
Делаю так:

Код


  TImage(PageControl.ActivePage.FindComponent('img'+index)).Left:=PageControl.ActivePage.Width-200;

Но программы падает с access violation. Где туплю? Как исправить?

CodeMonkey

Дата 8.2.2011, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Цитата(SanLLIer @ 8.2.2011, 21:05

)

Собственно вопрос в том как мне теперь обратиться к этим созданным компонентам. В частности к Image`у?

Не использовать with.

Код

FImage := TImage.Create(tab);

Как несложно догадаться, "обратиться к этим созданным компонентам. В частности к Image`у" можно путём обращения к переменной FImage.

Цитата(SanLLIer @ 8.2.2011, 21:05

)

Где туплю? Как исправить?

А на ошибки проверять кто будет? Если FindComponent возвращает nil?

Впрочем, это значения не имеет, ибо тебе это не надо. См. выше.

Это сообщение отредактировал(а) CodeMonkey - 8.2.2011, 20:15

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SanLLIer

Дата 8.2.2011, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 9.7.2008

Репутация: нет
Всего: нет

просто я не знаю сколько вкладок будет использоваться в работе программы... поэтому думал обойтись без использования переменных. тогда придется создавать массив с объектами.

CodeMonkey

Дата 8.2.2011, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Ты можешь создать наследника TTabSheet, добавить в него поле для Image.

TabSheet ты получишь у PageControl. Преобразованием типа получишь своего наследника. Ну а у него есть поле Image.

Красиво и без массивов.

P.S. И я бы ввёл наследника для PageControl, так чтобы не нужно было делать преобразование. Наследник для PageControl вводится методом Geo.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »