Создание динамических вкладок в PageConrol для TWebBrowser

@Orange17 · Регистрация: 01.10.2013

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

Объясните, пожалуйста, табы создаются, но сёрфинг происходит только на первой, даже, если выбрана другая вкладка.
Все исходники лежат в архиве.

@Orange17 · 22.02.2014, 12:36 **[ТС]**

Добавлено через 3 минуты

Pascal

procedure TForm1.N14Click(Sender: TObject);
Var
  PP : TPoint;
  i : Integer;
begin
  If PageControl1.PageCount=1 Then Exit;
  PP:=PageControl1.ScreenToClient(PageControl1.PopupMenu.PopupPoint);
  i:=PageControl1.IndexOfTabAt(PP.X,PP.Y);
  If i<>-1 Then
  PageControl1.Pages[i].Free;
end;

Заменил и у меня при закрытии любой вкладки ошибку выбивает

Одиночка · 22.02.2014, 12:37

Ну, какую ошибку? Трудно сразу написать?

@Orange17 · 22.02.2014, 12:43 **[ТС]**

Access violation at address 0043951D in module 'Project1.exe'. Read of address 00000058'

Одиночка · 22.02.2014, 12:44

Ты сам то кликал на эту ссылку?
Кроме того тебе вместо PageControl1 нужно было писать: pgc1.

@Orange17 · 22.02.2014, 12:50 **[ТС]**

Одиночка, я сразу заменил на pgc1.

Одиночка · 22.02.2014, 12:54

Не по теме:

Сейчас я сам проверю всё.

@Orange17 · 22.02.2014, 12:56 **[ТС]**

Сообщение от Одиночка

Не по теме:

Сейчас я сам проверю всё.

Не по теме:

Буду премного признателен

@Orange17 · 22.02.2014, 12:58 **[ТС]**

Вот мой конечный исходник:

Одиночка · 22.02.2014, 13:38

Вот так:
Там за концом текста Unit1 я вынес куски текста на всякий случай. За End с точкой. Удали это, чтобы не выдавал компилятор:
[Warning] Unit1.pas(270): Text after final 'END.' - ignored by compiler

@Orange17 · 22.02.2014, 14:07 **[ТС]**

Одиночка, большое спасибо. +

@Orange17 · 02.03.2014, 01:21 **[ТС]**

Вопросик. Я создаю twebbrowser небольшого размера, если в нём открывать веб-страницу, то страница показывается с верхней левой части. Можно ли как нибудь задать, чтобы она показывалась в определённой части страницы?

@FIL · 02.03.2014, 10:34

Сообщение от Orange17

показывалась в определённой части страницы

Можно. Например, по центру:

Delphi

//
  WebBrowser1.OleObject.Document.ParentWindow.
    ScrollBy(WebBrowser1.OleObject.Document.Body.ScrollWidth div 2,
             WebBrowser1.OleObject.Document.Body.ScrollHeight div 2);

@Orange17 · 02.03.2014, 15:27 **[ТС]**

Сообщение от FIL

Можно. Например, по центру:

Delphi

//
  WebBrowser1.OleObject.Document.ParentWindow.
    ScrollBy(WebBrowser1.OleObject.Document.Body.ScrollWidth div 2,
             WebBrowser1.OleObject.Document.Body.ScrollHeight div 2);

Спасибо. Только что-то у меня не выходит из этого сайта:
http://www.meteoprog.by/ru/informers/#Minsk
вытянуть человечка с прогнозом(

@FIL · 02.03.2014, 17:40

Чего его вытягивать? Задаешь нужные координаты и все:

@Orange17 · 02.03.2014, 17:58 **[ТС]**

Сообщение от FIL

Чего его вытягивать? Задаешь нужные координаты и все:

А как координаты задавать?

@FIL · 02.03.2014, 18:17

Сообщение от Orange17

А как координаты задавать?

Как в посте #32 написано:

Delphi

1	WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(210, 415);

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	22.02.2014, 12:43 [ТС]	23
	Access violation at address 0043951D in module 'Project1.exe'. Read of address 00000058' 0

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	22.02.2014, 12:50 [ТС]	25
	Одиночка, я сразу заменил на pgc1. 0

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	22.02.2014, 14:07 [ТС]	30
	Одиночка, большое спасибо. + 0

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	02.03.2014, 01:21 [ТС]	31
	Вопросик. Я создаю twebbrowser небольшого размера, если в нём открывать веб-страницу, то страница показывается с верхней левой части. Можно ли как нибудь задать, чтобы она показывалась в определённой части страницы? 0

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	02.03.2014, 17:58 [ТС]	35
	Сообщение от FIL Чего его вытягивать? Задаешь нужные координаты и все: А как координаты задавать? 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	22.02.2014, 12:37	22
	Ну, какую ошибку? Трудно сразу написать? 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	22.02.2014, 12:44	24
	Ты сам то кликал на эту ссылку? Кроме того тебе вместо PageControl1 нужно было писать: pgc1. 0

Одиночка
	22.02.2014, 12:54 #26
	Не по теме: Сейчас я сам проверю всё. 0

@Orange17 2 / 2 / 5 Регистрация: 01.10.2013 Сообщений: 203
	22.02.2014, 12:56 [ТС]	27
	Сообщение от Одиночка Не по теме: Сейчас я сам проверю всё. Не по теме: Буду премного признателен 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	02.03.2014, 17:40	34
	Чего его вытягивать? Задаешь нужные координаты и все: Миниатюры 0