Текущий архив: 2006.07.09;
Скачать: 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 вся ветка
Текущий архив: 2006.07.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
