VPF::trichedit и twebbrowser... - Форум программистов

The ded

Дата 21.10.2004, 18:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Динамически созданы trichedit и twebbrowser...
При нажатиии на кнопку происходит следующее:
Trichedit(PageControl1.ActivePage.Tag).Lines.SaveToFile(extractfilepath(paramstr(0))+'showing.~html'); Twebbrowser(PageControl1.ActivePage.Tag).Navigate(extractfilepath(paramstr(0))+'showing.~html')

Но вылетает ошибка access violation...

в свойстве activepage.tag лежит номер таба :qstn

Pakshin A. S.

Дата 21.10.2004, 18:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

Не долго думая я бы завел:

Код


RichEdits:array of TRichEdit;
WebBrowsers: array of TWebBrowser;

p0s0l

Дата 21.10.2004, 18:28 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата(The @ 21.10.2004, 18:11)

в свойстве activepage.tag лежит номер таба

Тогда так делать нельзя. Делай как предложил Pakshin A. S..
Хотя проще будет так: в ActivePage ищи веббраузер и ричедит, и с ними производит твои действия. Будет примерно так:

Код


var
  i : integer;
  c : TControl;
  wb : TWebBrowser;
  re : TRichEdit;
begin
// // поиск RichEdit и WebBrowser в ActivePage
  for i := 0 to PageControl1.ActivePage.ControlCount-1 do
  begin
    c := PageControl1.ActivePage.Controls[i];
    if c is TWebBrowser then wb := TWebBrowser(c);
    if c is TRichEdit then re := TRichEdit(c);
  end;
// re - твой RichEdit, wb - твой WebBrowser
  re.Lines.SaveToFile(extractfilepath(paramstr(0))+'showing.~html');
  wb.Navigate(extractfilepath(paramstr(0))+'showing.~html');
end;

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

С уважением, г-н Посол.

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