| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
2 TWebBrowser на одной форме. Как связать? [D6, Win95/98]
Versus31 © (2002-11-17 10:43:00)У меня на одной форме 2 TWebBrowser. Нужно, чтобы по клику на ссылку в HTML документе, отображаемом в первом броузере, нужная страница открывалась во втором, а содержание первого оставалось неизменным. Возможно ли такое сделать? Если кто знает, подскажите как, plz.
Versus31 (2002-11-19 00:05:00) [1]Большое спасибо!!! Да делаю оболочку для сборника статей, хочу в маленьком окне WebBrowser меню на Flash сделать, а в большом сами статьи отображать. Еще раз благодарю.
Николай Быков (2002-11-17 10:50:00) [2]Вот так. На форме лежит два TWebBrowser"a и одна кнопка
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
WebBrowser2: TWebBrowser;
Button1: TButton;
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser2.Navigate(URL);
Cancel:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate("ya.ru");
end;
end.
Николай Быков (2002-11-17 10:50:00) [3]Можно поинтересоваться? А зачем это?
| |
