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

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

← →
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...
То же самое - чем и как?

---

← →
VMcL ©   (2003-06-05 17:08) [12]

>stream © (05.06.03 16:40)

Текст rc-файла?

---

← →
stream ©   (2003-06-05 17:17) [13]

>Юрий Зотов © (05.06.03 17:07)
Курсор создавался в Image editor"е

---

← →
VMcL ©   (2003-06-05 17:22) [14]

>stream © (05.06.03 17:17)

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

---

← →
VMcL ©   (2003-06-05 17:24) [15]

>VMcL © (05.06.03 17:22)

Точнее в самом Image Editor"е имя должно быть в верх. рег.

---

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

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

---

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

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



Память: 0.47 MB
Время: 0.013 c