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

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. Хотя уже в общем функцианирование закончил.... сейчас решил пооформлять малость :) что бы в нормальный вид привести :)

---

← →
Glex ©   (2006-03-13 20:12) [5]

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;


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

---

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

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



Память: 0.46 MB
Время: 0.035 c