![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WebBrowser
Fenix © (2006-03-13 14:10:00)Доброго времени суток.
Я хочу сделать в WebBrowser'e, что бы при наведении на ссылку, рядом всплывало окошко с адресом ссылки. Подскажите плз как можну узнать над какой ссылкойй находиться курсор, и адрес этой ссылки?
SergP. (2006-03-14 06:29:00) [1]ИМХО можно использовать 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;
Ну это я конечно для примера привел. Может тебе понадобится что-то отсюда...
Glex (2006-03-13 20:12:00) [2]Fenix
Ну, в общем-то, задача у нас одна: привести в чувство TWebBrowser =)
Давай кооперироваться. Мой совет: скачай базу с www.drkb.ru и введи в поиске TWebBrowser
Fenix (2006-03-13 20:05:00) [3]Я пишу HTML editor. Хотя уже в общем функцианирование закончил.... сейчас решил пооформлять малость :) что бы в нормальный вид привести :)
Glex (2006-03-13 18:00:00) [4]Fenix
Мне тоже как раз это надо)))
Ты случайно не БК-клиент пишешь? =))
Fenix (2006-03-13 17:52:00) [5]да не то!!!!
мне надо что бы уже на сгенерированной странице в WebBrowser (delphi), когда наводишь на ссылку, что бы создавалась динамически форма, и на ней писался адрес ссылки на которую наведен курсор....
clickmaker (2006-03-13 17:17:00) [6]<a href="..." title="всплывающий текст">click me</a>