WebBrowser - ссылка открывается не в вкладке, а в Internet Explorer

@gamerfox · Регистрация: 04.05.2012

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

Народ, задачка на засыпку. Написал браузер, для начала норм, но когда нажимаешь ссылку из яндекса или гугла, то она открывается не в новой вкладке, а в окне Internet Explorer. Подскажите что надо сделать чтобы открывалась во вкладке.
Вот весь код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, OleCtrls, SHDocVw;
type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    ProgressBar1: TProgressBar;
    Panel1: TPanel;
    Back: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Panel2: TPanel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    WebBrowser1: TWebBrowser;
    procedure Edit1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure WebBrowser1StatusTextChange(Sender: TObject;
      const Text: WideString);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure BackClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  pagecontrol:tpagecontrol;
  tabsheet:ttabsheet;
  Panel : TPanel;
  Edit : TEdit;
  WebBrowser : TWebBrowser;
implementation
{$R *.dfm}
procedure TForm1.Edit1Click(Sender: TObject);
begin
if Edit1.Text='Ââåäèòå àäðåñ' then
Edit1.Text:='http://www.';
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
tabsheet:=ttabsheet.Create(self);
tabsheet.PageIndex:=tabsheet.PageIndex+1;
tabsheet.PageControl:=pagecontrol1;
Panel:=TPanel.Create(self);
Panel.Parent:=tabsheet;
Panel.Align:=alTop;
Panel.Height:=25;
Edit:=TEdit.Create(self);
Edit.Parent:=Panel;
Edit.Left:=0;
Edit.Width:=Width div 2 + 80;
WebBrowser:=TWebBrowser.Create(self);
TWinControl(WebBrowser).Parent := tabsheet;
WebBrowser.Align:=alClient;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
pagecontrol1.ActivePage.free;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Edit1.Left:=0;
Edit1.Width := Width div 2 + 80;
ComboBox1.Left:=Width div 2 +150;
ComboBox1.Width:=Width div 2 -180;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key= VK_RETURN then
WebBrowser1.Navigate(Edit1.Text);
end;
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;
procedure TForm1.BackClick(Sender: TObject);
begin
TWebBrowser(PageControl1.ActivePage.Controls[1]).GoBack;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
TWebBrowser(PageControl1.ActivePage.Controls[1]).GoForward;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
TWebBrowser(PageControl1.ActivePage.Controls[1]).Refresh;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
TWebBrowser(PageControl1.ActivePage.Controls[1]).GoHome;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
TWebBrowser(PageControl1.ActivePage.Controls[1]).navigate('www.yandex.ru');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
PageControl1.ActivePage.Caption:=TWebBrowser(PageControl1.ActivePage.Controls[1]).oleobject.document.title;
end;
end.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@volvo · 04.05.2012, 19:03

Вот тут я показывал.

@gamerfox · 04.05.2012, 19:30 **[ТС]**

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

Вот тут я показывал.

Delphi
1
2
3
4
5
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp := WebBrowser2.DefaultDispatch;
end;

Да, это понятно, но если у меня допустим не 2 а 15 webbrowser-ов, что тогда делать

Добавлено через 12 минут
точнее мне надо, чтобы когда нажимаешь на ссылку открывалась новая вкладка и там загружалась страница.
Нуже UI подмоги, в долгу не останусь, поставлю +

@volvo · 04.05.2012, 20:04

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

мне надо, чтобы когда нажимаешь на ссылку открывалась новая вкладка и там загружалась страница

Вот и делай это (создание новой вкладки, и подстановку в ppDisp значения DefaultDispatch только что созданного браузера) в событии OnNewWindow. То есть, и вновь возданному браузеру тебе тоже надо назначать это событие, чтобы когда в нем открываешь ссылку, она тоже открывалась не в окне IE, а чтоб создавался новый, N+1 -ый браузер... Смотри:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
// Твой класс формы
  private
    { Private declarations }
    procedure CreateNewTab(Title : string); // Описываем процедурку, создающую новый таб
  public
    { Public declarations }
  end;
 
// Вот ее реализация
procedure TForm1.CreateNewTab(Title : string);
var
   tabsheet : TTabSheet;
   WB : TWebBrowser;
begin
   tabsheet := TTabSheet.Create(PageControl1);
   tabsheet.Visible := true;
   tabsheet.Caption := Title;
   tabsheet.PageControl := PageControl1;
   PageControl1.ActivePage := tabsheet; // Делаем новую вкладку активной
   WB := TWebBrowser.Create(self); // Создаем на ней WebBrowser
   TWinControl(WB).Parent := TabSheet;
   WB.Align := alClient; // Распахиваем его на всю вкладку
   WB.OnNewWindow2 := WebBrowser1NewWindow2; // Назначаем обработчик события OnNewWindow2
   TabSheet.Tag := Integer(WB); // Запоминаем как браузер для TabSheet, потом понадобится
end;
 
// При попытке открыть новое окно - попадем сюда
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
   CreateNewTab('new title'); // Создаем новый таб
 
   // И назначаем браузер, лежащий на только что созданном табе, приёмником
   ppDisp := TWebBrowser(PageControl1.ActivePage.Tag).DefaultDispatch;
end;

@gamerfox · 04.05.2012, 20:37 **[ТС]**

Большое спс, +1 тебе

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

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

Большое спс, +1 тебе

Добавлено через 54 секунды
Но возник вопрос, в caption всегда будет 'new title' когда переходитшь по ссылки, т.е. когда в яндексе забьешь что нибудь в поиск и он те выдаст, переходишь по ссылке и в caption 'new title', что надо дописать

@volvo · 05.05.2012, 03:55

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

что надо дописать

Добавь еще событие OnDocumentComplete:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
   // Меняешь Caption таба на реальный после загрузки страницы
   ((TWinControl(ASender as TWebBrowser).Parent) as TTabSheet).Caption :=
      ((TWebBrowser(ASender).document as IHTMLDocument2).title);
end;
 
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
   CreateNewTab('Untitled'); // Временная "заглушка", пока страничка не подгрузится
   ppDisp := TWebBrowser(PageControl1.ActivePage.Tag).DefaultDispatch;
end;
 
// не забудь также назначить этот обработчик при создании нового браузера:
   WB.OnNewWindow2 := WebBrowser1NewWindow2; // Назначаем обработчик события OnNewWindow2
   WB.OnDocumentComplete := WebBrowser1DocumentComplete; // <---

@gamerfox · 06.05.2012, 23:28 **[ТС]**

Опять выручил, тебе +

Добавлено через 1 час 58 минут

Только delphi ругается на Asender везде, а если поменять просто на sender то тогда ругается на IHTMLDocument2, что то не то, и можешь объяснить 2 последние строки.

@volvo · 07.05.2012, 01:04

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

Только delphi ругается на Asender везде

Не знаю, что у тебя за версия Дельфи, у меня ничего нигде не ругается (см. аттач), и прекрасно работает. Более того, это тот заголовок, который Дельфя сама генерирует при двойном клике на OnNewWindow2.

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

и можешь объяснить 2 последние строки.

А чего там объяснять? Это назначение обработчиков динамически создаваемому WebBrowser-у. Чтобы при работе в нём не было открытий окна IE, а создавалась еще одна вкладка и копия браузера.

@gamerfox · 07.05.2012, 01:23 **[ТС]**

Откуда ты так много знаешь про этот WebBrowser?

@volvo · 07.05.2012, 01:39

Не по теме:

Я много про что знаю. Работа такая :)

@gamerfox · 07.05.2012, 01:47 **[ТС]**

Копировал твой текст и картинку смотрел, но вот так у меня:
Что мне надо сделать, просто на курсовую хочу что-нибудь нормальное написать, а то все только и знают , что скопировать друг у друга базу данных, переименовать ее и пару строк и все, готово, достали все уже своей тупостью. Может подскажешь нормальную книгу про WebBrowser.

@gamerfox · 07.05.2012, 02:08 **[ТС]**

Забыл, вот еще

@volvo · 07.05.2012, 02:27

Так, ну, то что у тебя на 3-ем скрине - дело в том, что у тебя заголовки методов в классе формы и при реализации - разные. Этого быть не должно, они должны быть одинаковые. Первый скрин - это лишняя точка. Где ты у меня видел WebBrowser1.NewWindow2? не было этого. У меня написано WebBrowser1NewWindow2, безо всяких точек. А четвертый скрин - очень похоже на то, что не подключен модуль MsHtml.

В общем, вот полный код моей формы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unit3;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, {Graphics,} Controls, Forms,
   Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls;
 
type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
    procedure CreateNewTab(Title : string);
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
uses mshtml; // Вот этот модуль не забудь подключить !!!
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('http://google.com');
end;
 
procedure TForm3.CreateNewTab(Title : string);
var
   tabsheet : TTabSheet;
   WB : TWebBrowser;
begin
   tabsheet := TTabSheet.Create(PageControl1);
   tabsheet.Visible := true;
   tabsheet.Caption := Title;
   tabsheet.PageControl := PageControl1;
   PageControl1.ActivePage := tabsheet; // Делаем новую вкладку активной
   WB := TWebBrowser.Create(self); // Создаем на ней WebBrowser
   TWinControl(WB).Parent := TabSheet;
   WB.Align := alClient; // Распахиваем его на всю вкладку
 
   // Смотри внимательно. Никаких точек в следующих двух строках !!!
 
   WB.OnNewWindow2 := WebBrowser1NewWindow2; // Назначаем обработчик события OnNewWindow2
   WB.OnDocumentComplete := WebBrowser1DocumentComplete;
   TabSheet.Tag := Integer(WB); // Запоминаем как браузер для TabSheet, если потом понадобится
end;
 
// Обрати внимание. Здесь и в строке №18 все параметры называются совершенно одинаково
procedure TForm3.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
   ((TWinControl(ASender as TWebBrowser).Parent) as TTabSheet).Caption :=
      ((TWebBrowser(ASender).document as IHTMLDocument2).title);
end;
 
// И здесь все одинаково со строкой №16
procedure TForm3.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
   CreateNewTab('Untitled');
   ppDisp := TWebBrowser(PageControl1.ActivePage.Tag).DefaultDispatch;
end;
 
end.

Внимательно читай комментарии.

Может подскажешь нормальную книгу про WebBrowser.

Самая нормальная книга про WebBrowser - это документация его создателей. Поскольку WB работает на движке IE, то здесь самая полезная информация

@gamerfox · 07.05.2012, 10:14 **[ТС]**

Спс, все дела, только какая-то точка и модуль гребанный. + те

@MARATUS2015 · 17.07.2015, 19:02

у меня вот ошибка возникает typecast, подскажите пожалуйста из-за чего такое может быть?

@MARATUS2015 · 19.07.2015, 08:18

в коде

Delphi
1
2
3
4
type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;

TabSheet1: TTabSheet; выдается ошибка как на рисунке 1. После этого жму Yes. Программа запускается и идет ошибка см. выше предыдущую запись.

@FIL · 19.07.2015, 14:46

На скрине - Form1 без каких-либо TabSheet, а в приведенном тобою куске кода - Form3.
Ну хоть немного надо думать, когда копируешь чужой код?)

@MARATUS2015 · 19.07.2015, 19:58

нет, у меня все исправлено Form3 на Form1, у меня ошибка при запуске. Выдается ошибка EInvalidCast и выделяется код, скрин выше отправлял:

Delphi
1
((TWinControl(ASender as TWebBrowser).Parent) as TTabSheet).Caption :=

вот весь код, который есть:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit1;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls,  ExtCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Panel2: TPanel;
    Image6: TImage;
                   Image5: TImage;
                Image4: TImage;
             Image3: TImage;
          Image2: TImage;
       Image1: TImage;
    Edit2: TEdit;
    ProgressBar2: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
    procedure CreateNewTab(Title : string);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses mshtml; // Вот этот модуль не забудь подключить !!!
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('www.google.com');
end;
 
procedure TForm1.CreateNewTab(Title : string);
var
   tabsheet : TTabSheet;
   WB : TWebBrowser;
begin
   tabsheet := TTabSheet.Create(PageControl1);
   tabsheet.Visible := true;
   tabsheet.Caption := Title;
   tabsheet.PageControl := PageControl1;
   PageControl1.ActivePage := tabsheet; // Делаем новую вкладку активной
   WB := TWebBrowser.Create(self); // Создаем на ней WebBrowser
   TWinControl(WB).Parent := TabSheet;
   WB.Align := alClient; // Распахиваем его на всю вкладку
 
   // Смотри внимательно. Никаких точек в следующих двух строках !!!
 
   WB.OnNewWindow2 := WebBrowser1NewWindow2; // Назначаем обработчик события OnNewWindow2
   WB.OnDocumentComplete := WebBrowser1DocumentComplete;
   TabSheet.Tag := Integer(WB); // Запоминаем как браузер для TabSheet, если потом понадобится
end;
 
// Обрати внимание. Здесь и в строке №18 все параметры называются совершенно одинаково
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
   ((TWinControl(ASender as TWebBrowser).Parent) as TTabSheet).Caption :=
      ((TWebBrowser(ASender).document as IHTMLDocument2).title);
end;
 
// И здесь все одинаково со строкой №16
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
   CreateNewTab('Untitled');
   ppDisp := TWebBrowser(PageControl1.ActivePage.Tag).DefaultDispatch;
end;
 
end.

@FIL · 19.07.2015, 20:16

Так ты юзаешь WebBrowser1, который лежит на форме или PageControl1, а не тот, который создаешь в рантайм, естественно вылетает ошибка.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@volvo Супер-модератор 33187 / 21484 / 8232 Регистрация: 22.10.2011 Сообщений: 36,862 Записей в блоге: 12
	04.05.2012, 19:03
	Вот тут я показывал. 1

@gamerfox 1 / 1 / 0 Регистрация: 04.05.2012 Сообщений: 102
	06.05.2012, 23:28 [ТС]
	Опять выручил, тебе + Добавлено через 1 час 58 минут Только delphi ругается на Asender везде, а если поменять просто на sender то тогда ругается на IHTMLDocument2, что то не то, и можешь объяснить 2 последние строки. 0

@gamerfox 1 / 1 / 0 Регистрация: 04.05.2012 Сообщений: 102
	07.05.2012, 01:23 [ТС]
	Откуда ты так много знаешь про этот WebBrowser? 0

@volvo
	07.05.2012, 01:39
	Не по теме: Я много про что знаю. Работа такая :) 1

@gamerfox 1 / 1 / 0 Регистрация: 04.05.2012 Сообщений: 102
	07.05.2012, 01:47 [ТС]
	Копировал твой текст и картинку смотрел, но вот так у меня: Что мне надо сделать, просто на курсовую хочу что-нибудь нормальное написать, а то все только и знают , что скопировать друг у друга базу данных, переименовать ее и пару строк и все, готово, достали все уже своей тупостью. Может подскажешь нормальную книгу про WebBrowser. Миниатюры 0

@gamerfox 1 / 1 / 0 Регистрация: 04.05.2012 Сообщений: 102
	07.05.2012, 02:08 [ТС]
	Забыл, вот еще Миниатюры 0

@gamerfox 1 / 1 / 0 Регистрация: 04.05.2012 Сообщений: 102
	07.05.2012, 10:14 [ТС]
	Спс, все дела, только какая-то точка и модуль гребанный. + те 0

@MARATUS2015 1 / 1 / 0 Регистрация: 26.01.2015 Сообщений: 46
	17.07.2015, 19:02
	у меня вот ошибка возникает typecast, подскажите пожалуйста из-за чего такое может быть? Миниатюры 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	19.07.2015, 14:46
	На скрине - Form1 без каких-либо TabSheet, а в приведенном тобою куске кода - Form3. Ну хоть немного надо думать, когда копируешь чужой код?) 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	19.07.2015, 20:16
	Так ты юзаешь WebBrowser1, который лежит на форме или PageControl1, а не тот, который создаешь в рантайм, естественно вылетает ошибка. 0

WebBrowser - ссылка открывается не в вкладке, а в Internet Explorer

Решение