Друзья всем привет, такой момент, наконец то мой webbrowser начал отображать названия вкладок, т.е title страниц вот таким образом.
Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
((TWinControl(Sender as TWebBrowser).Parent) as TTabSheet).Caption :=
((TWebBrowser(Sender).document as IHTMLDocument2).title);
end;
Теперь при добавлений страницу в БД, мне надо получить навзание вкладки сохраняемой страницы в edit.
Я пытаюсь получить его так
Код:
form2.Edit1.Text:=((TWebBrowser(Sender).document as IHTMLDocument2).title);
Всё компилится нормально, но когда дело доходит до того самого момента получения названия вкладки в edit вылетает ошибка access violation. Вопрос где я ошибся? Есть ли какие нибудь другие варианты решения вопроса?
p.s вкладки построены с помощью pagecontrol