Название вкладки в браузере

@Жора1111 · Регистрация: 24.11.2016

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане, подскажите из-за чего в данной процедуре возникает ошибка "Invalid class typecast"?

Delphi

procedure TForm1.WebDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ((TWinControl(Sender as TWebBrowser).Parent) as TTabSheet).Caption :=
  ((TWebBrowser(Sender).document as IHTMLDocument2).title);
end;

@qwertehok · 24.07.2017, 21:34

Не по теме:

был такой анекдот
Подскажите почему нет звука в DOS, запущеном Dosbox в WINE на Линуксе, который защен в VirtulBox под виндой.

а так?

Delphi

1	(((Sender as TWebBrowser).Parent) as TTabSheet).Caption

Добавлено через 1 минуту
и вообще - отладку никто не отменял
останавливаешь и смотришь что у тебя в каждых скобках
а то наплетут и догадывайся где что

@Жора1111 · 24.07.2017, 21:44 **[ТС]**

Так ошибка при компиляции выходит.

@qwertehok · 24.07.2017, 21:46

и что?
разбей свою ошибочную строку. у каждой части есть текстовое свойство CLassName - выводи его в Showmessage и поймешь

@BOGG ART · 24.07.2017, 23:21

Сообщение от Жора1111

в данной процедуре возникает ошибка "Invalid class typecast"?

Положил на форму TPageControl, создал в нём TTabSheet, положил на последний TWebBrowser, создал ему WebBrowser1DocumentComplete, скопировал в него ваш код.
У меня никаких ошибок не возникает.

Так что надо бы подробнее что там и как у вас происходит...

Добавлено через 1 минуту
Может у вас Parent-то вовсе не TTabSheet? Проверьте-ка кто задаётся Parent-ом.

@Жора1111 · 25.07.2017, 12:17 **[ТС]**

Вы говорите, что ошибок не возникало при компиляции?

Добавлено через 5 минут
Все, данный вопрос исчерпан, ошибка была в том что я не поместил TWebBrowser на TTabSheet и из-за этого возник конфликт. Всем спасибо.

@Жора1111 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 86
	24.07.2017, 21:44 [ТС]	3
	Так ошибка при компиляции выходит. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	24.07.2017, 21:46	4
	и что? разбей свою ошибочную строку. у каждой части есть текстовое свойство CLassName - выводи его в Showmessage и поймешь 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	24.07.2017, 23:21	5
	Сообщение от Жора1111 в данной процедуре возникает ошибка "Invalid class typecast"? Положил на форму TPageControl, создал в нём TTabSheet, положил на последний TWebBrowser, создал ему WebBrowser1DocumentComplete, скопировал в него ваш код. У меня никаких ошибок не возникает. Так что надо бы подробнее что там и как у вас происходит... Добавлено через 1 минуту Может у вас Parent-то вовсе не TTabSheet? Проверьте-ка кто задаётся Parent-ом. 1

@Жора1111 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 86
	25.07.2017, 12:17 [ТС]	6
	Вы говорите, что ошибок не возникало при компиляции? Добавлено через 5 минут Все, данный вопрос исчерпан, ошибка была в том что я не поместил TWebBrowser на TTabSheet и из-за этого возник конфликт. Всем спасибо. 0