VPF::динамическое создание pagecontrol,tabsheet, event

bagos

Дата 27.12.2010, 12:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Добрый день, столкнулся с проблемой, опишу немного задачу.

Чтобы не вникать в дебри, вкратце я динамически создаю pagecontrol и табы на нем, также динамически, на табах создается компонент THTMLStaticText.

Код


  pcontrol := TRzPageControl.Create(nil);
  pcontrol.Parent := TabParent;
  pcontrol.Align := alClient;
  pcontrol.TabOrientation := toLeft;
  pcontrol.TabStyle := tsRoundCorners;
  pcontrol.OnChange := OnButtonClick;


  for i := 0 to length(mymass) - 1 do
  begin
    TabSheet := TrzTabSheet.Create(nil);
    TabSheet.Caption := mymass[i][0];
    TabSheet.PageControl := pcontrol;

    html_text := THTMLStaticText.Create(self);
    html_text.PictureContainer := pc;
    html_text.Align := alClient;
    html_text.Parent := tabsheet;
    html_text.Name := 'html_text' + IntToStr(i);
  end;

Есть массив, при щелчке на один из табов срабатывает событие onchange и на выбранном табе в компонент html_text пишет текст из массива.

Обработчик события:
procedure TForm1.OnButtonClick(Sender: TObject);
begin
if Sender is TRzPageControl then
(findcomponent(format('html_text%d', [(Sender as TRzPageControl).TabIndex])) as THTMLStaticText).HTMLText.Text := (mymass[(Sender as TRzPageControl).TabIndex][1]);
end;

Все работает хорошо, но теперь я захотел функцию по динамическому созданию пэйджев и табов запихнуть в процедуру, чтобы вызывать когда надо, в параметрах указал

Код


procedure TForm1.ADDForum(PageC:TRzPageControl;OnMyChange:TNotifyEvent);
var
....
begin
    TabParent := TRzTabSheet.Create(nil);
    TabParent.PageControl := PageC;
    TabParent.Caption := 'nw';
    TabParent.Align := alClient;
  pcontrol := TRzPageControl.Create(nil);
  pcontrol.Parent := TabParent;
  pcontrol.Align := alClient;
  pcontrol.TabOrientation := toLeft;
  pcontrol.TabStyle := tsRoundCorners;
  pcontrol.OnChange := OnMyChange;


  for i := 0 to length(mymass) - 1 do
  begin
    TabSheet := TrzTabSheet.Create(nil);
    TabSheet.Caption := mymass[i][0];
    TabSheet.PageControl := pcontrol;

    html_text := THTMLStaticText.Create(nil);
    html_text.PictureContainer := pc;
    html_text.Align := alClient;
    html_text.Parent := tabsheet;
    html_text.Name := 'html_text' + IntToStr(i);
  end;
  pcontrol.TabIndex := 0;
end;

В случае с созданием отдельной процедуры, не работает обработчик события на смену вкладок, компилятор ругается и выводит Access Violation на строчке

Код


if Sender is TRzPageControl then
    (findcomponent(format('html_text%d', [(Sender as TRzPageControl).TabIndex])) as THTMLStaticText).HTMLText.Text := (mymass[(Sender as TRzPageControl).TabIndex][1]);

Знающие, подскажите где не правильно сделал?

БелАмор

Дата 27.12.2010, 13:42 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


    html_text := THTMLStaticText.Create(self);  // Здесь html_text включался в список Components формы

    html_text := THTMLStaticText.Create(nil);  // Здесь он не включется

  if Sender is TRzPageControl then
      (findcomponent(...                  // А здесь происходит попытка поиска в Components формы

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