![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WebBrowser
Alek_1 © (2002-11-19 01:18:00)Как в сабж поместить свой курсор
чтобы он появлялся при наведении на ссылку
Всем спасибо.
Alek_1 (2002-11-20 01:23:00) [1]Спасибо.
int64 (2002-11-19 05:58:00) [2]В IE6 появилась интересная штука:
можно в стилях елементов для курсора указывать урл файла курсора
(*.cur; *.ani)
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
FileName: string;
Coll: variant;
begin
if assigned(WebBrowser1.Document) then
begin
FileName:= "C:\WINDOWS\Cursors\handwe.ani";
Coll:= WebBrowser1.OleObject.Document.all.tags("A");
for i:=0 to Coll.length -1 do
Coll.item(i).style.cursor:="url("+FileName+")";
end;
end;
Раньше такое юзать было нельзя. Приходилось довольствоваться стандартными:
style.cursor:="crosshair";
(default, hand, help, move, text, wait, *-resize (N, NE, NW, S, SE, SW, E, W))