загрузка курсора

← →
stream © (2003-06-05 16:19) [0]

Добрый день. Как програмно изменить курсор приложения? Пример в из справки Делфи не работает.

← →
Sandman25 © (2003-06-05 16:25) [1]

Screen.Cursor := crHourGlass

← →
VMcL © (2003-06-05 16:26) [2]

Этот что ли не работает?

var Save_Cursor:TCursor; begin Save_Cursor := Screen.Cursor; Screen.Cursor := crHourGlass; { Show hourglass cursor } try { Do some lengthy operation } finally Screen.Cursor := Save_Cursor; { Always restore to normal } end; end;

← →
stream © (2003-06-05 16:28) [3]

Мне нужно загрузить свой, нестандартный курсор (он находится в файле xxx.res, который я подключаю к своей программе

← →
VMcL © (2003-06-05 16:30) [4]

>stream © (05.06.03 16:28)

Курсоры - *.cur, *.ani

← →
VMcL © (2003-06-05 16:32) [5]

>stream © (05.06.03 16:28)
Curs := LoadCursor(hInstance, "MyCursor"); Screen.Cursor := Curs;

Так, вроде...

← →
Ru © (2003-06-05 16:34) [6]

Form1.Cursor:=crCross; - например так написать в обработчике какого-либо события.

← →
stream © (2003-06-05 16:35) [7]

Пишу {$R xxx.cur} и получаю
[Error] RLINK32: Unsupported 16bit resource in file "D:\stars\Cursor2.cur"

← →
VMcL © (2003-06-05 16:35) [8]

>VMcL © (05.06.03 16:32)
Нет, вот так:

Screen.Cursors[crMyCurs] := LoadCursor(hInstance, "MyCursor"); Screen.Cursor := crMyCurs;

← →
VMcL © (2003-06-05 16:37) [9]

>stream © (05.06.03 16:35)

{$R xxx.res}

а xxx.res - это должен быть откомпилированный xxx.rc (brcc32.exe)

← →
stream © (2003-06-05 16:40) [10]

> VMcL © (05.06.03 16:35)
У меня LoadCursor возвращает что-то большее 65000, что должно значить ошибку. Я создал файл *.res, в нем описан мой курсор, но почему-то не загружает

← →
Юрий Зотов © (2003-06-05 17:07) [11]

1. > "Unsupported 16bit resource..."
Чем и как рисовался курсор?

2. > Я создал файл *.res...
То же самое - чем и как?

>stream © (05.06.03 17:17)

Может перепутал? Cursor - Icon, я только что делал в Im. Ed. - всё ОК. Проверь регистр букв - по-моему нужно передавать строку в верхнем регистре в LoadCursor.

Всем большое спасибо, а особенно VMcL. Все заработало!!!

загрузка курсора Найти похожие ветки