WebBrowser

← →
Fenix © (2006-03-13 14:10) [0]

Доброго времени суток.
Я хочу сделать в WebBrowser"e, что бы при наведении на ссылку, рядом всплывало окошко с адресом ссылки. Подскажите плз как можну узнать над какой ссылкойй находиться курсор, и адрес этой ссылки?

← →
clickmaker © (2006-03-13 17:17) [1]

<a href="..." title="всплывающий текст">click me</a>

← →
Fenix © (2006-03-13 17:52) [2]

да не то!!!!
мне надо что бы уже на сгенерированной странице в WebBrowser (delphi), когда наводишь на ссылку, что бы создавалась динамически форма, и на ней писался адрес ссылки на которую наведен курсор....

← →
Glex © (2006-03-13 18:00) [3]

Fenix

Мне тоже как раз это надо)))
Ты случайно не БК-клиент пишешь? =))

← →
Fenix © (2006-03-13 20:05) [4]

Я пишу HTML editor. Хотя уже в общем функцианирование закончил.... сейчас решил пооформлять малость :) что бы в нормальный вид привести :)

Fenix

Ну, в общем-то, задача у нас одна: привести в чувство TWebBrowser =)

Давай кооперироваться. Мой совет: скачай базу с www.drkb.ru и введи в поиске TWebBrowser

← →
SergP. (2006-03-14 06:29) [6]

ИМХО можно использовать OnStatusTextChange, только придется "отфильтровывать" ненужные вызовы этого события.

Типа так:

var hintw:THintWindow; ... procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); var rect:TRect; Mouse:TMouse; begin if pos("://",text) in [2..5] then begin IF hintw<>nil then Hintw.ReleaseHandle; Hintw:=THintWindow.Create(self); Rect:=Hintw.CalcHintRect(Screen.Width, text, nil); Rect.TopLeft:=Mouse.CursorPos; inc(rect.Bottom,rect.Top); inc(rect.Right,rect.Left); Hintw.ActivateHint(Rect,text); end else if hintw<>nil then Hintw.ReleaseHandle; end;

Ну это я конечно для примера привел. Может тебе понадобится что-то отсюда...

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