TWebBrowser

← →
BlackLord2003 © (2004-02-03 14:31) [0]

А у меня такой вопрос. Как сделать так, чтобы на панели статуса отображался адресс гипперссылки, на которую наведён курсор?
Спасибо!

← →
Илюха © (2004-02-03 15:25) [1]

Я тебя не понял!
В смысле, в ссылке пишется адресс того, где сы сейчас? Или что?

← →
int64 (2004-02-03 17:32) [2]

OnStatusTextChange

← →
BlackLord2003 © (2004-02-03 18:15) [3]

<Илюха>
Нет, например я загрузил документ. Навожу на ссылку мышкой и на панели статуса должен высветится адрес, куда ты попадёшь, если нажмёшь.
<int64>
Если можно, то по подробнее и с кодом!

← →
int64 (2004-02-04 10:36) [4]

1. На форме выделяется объект WebBrowser1.
2. В инспекторе объектов на закладке Events два раза кликаете на свойстве OnStatusTextChange. Появится следующая конструкция:

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); begin end;

3. Обратите внимание на const Text: WideString. В ней содержится текст, который появляется в статусбар IE.
4. Высвечивайте этот текст, где надо.

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); begin Caption:= Text; end;

TWebBrowser Найти похожие ветки