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

Курсор в WebBrowser   Найти похожие ветки 

← →
yahaha ©   (2006-05-25 17:25) [0]

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

---

← →
programania ©   (2006-05-25 19:45) [1]


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;


---

← →
programania ©   (2006-05-25 19:48) [2]


wbc("wait");
...
wbc("default");


---

← →
yahaha ©   (2006-05-25 22:15) [3]

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

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

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

---

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

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



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