| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Курсор в WebBrowser [D7]

yahaha ©   (2006-05-25 17:25:00) 

Как подменить курсор мыши в TWebBrowser?
Методы [b]Screen.Cursor:=...[/b] и [b]WebBrowser1.Cursor:=...[/b] не проходят...

---

yahaha   (2006-05-25 22:15:00) [1]

>Coll:= form1.WebBrowser1.OleObject.Document.all.tags('A');

Так я влезаю в текст документа, а туда влезать нехорошо... (может быть, у ссылок уже указан другой стиль).

Я думаю, может как-то перекрыть "установщик курсора"  WebBrowser-а, и завести на всей форме один "главный" курсор, который будет показываться независимо от дочерних элементов формы... Только вот как?

---

programania   (2006-05-25 19:48:00) [2]


wbc('wait');
...
wbc('default');


---

programania   (2006-05-25 19:45:00) [3]


procedure wbc(c:string);
var
i: integer;
Coll: variant;
begin
if c[1]='w' then screen.Cursor:=crHourGlass
           else screen.Cursor:=crDefault;
if assigned(form1.WebBrowser1.Document) then
begin
 Coll:= form1.WebBrowser1.OleObject.Document.all.tags('A');
 for i:=0 to Coll.length -1 do
  Coll.item(i).style.cursor:=c;
end;
end;


---

Наверх