Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.964 c