Реагируем на щелчек по ссылке в WebBrowser -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.121.160]

Модераторы: Rouse_, jack128, Krid

Реагируем на щелчек по ссылке в WebBrowser

Rouse_

Сообщ. #1 , 16.02.05, 07:00

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

var

Document: IHtmlDocument2;

V: Variant;

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('about:blank');

while WebBrowser1.Document = nil do

Application.ProcessMessages;

Document := WebBrowser1.Document as IHtmlDocument2;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

V[0] :='<a href="http://ya.ru">Run</a>';

Document.Writeln(PSafeArray(TVarData(v).VArray));

WebBrowser1.OleObject.Document.ParentWindow.Scroll(0, 10000000);

end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

begin

if url <> 'about:blank' then

begin

WebBrowser2.Navigate(URL);

Cancel := True;

end;

Автор: Rouse_

var

NavigateTo: Boolean = False;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

begin

if NavigateTo then

begin

Cancel := True;

WebBrowser2.Navigate(URL);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

WebBrowser1.Navigate('about:<a href="http://ya.ru">Run</a>');

NavigateTo := True;

end;

Автор: s-mike

OnNewWindow2
Возникает при попытке открыть документ в новом окне. Если Вы хотите, чтобы документ был открыт в Вашем экземпляре броузера, то Вам нужно создать свой экземпляр броузера и параметру ppDisp присвоить интерфейсную ссылку на этот экземпляр:

procedure TFormSimpleWB.WebBrowser1NewWindow2(Sender: TObject;

var ppDisp: IDispatch; var Cancel: WordBool);

var

newForm:TFormSimpleWB;

begin

newForm := TFormSimpleWB.Create(Application);

newForm.Show;

ppDisp := newForm.WebBrowser1.ControlInterface;

end;

Автор: -TOXA-

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0282 ] [ 16 queries used ] [ Generated: 3.05.24, 14:43 GMT ]