Курсор

← →
МегаПупс (2007-02-28 14:09) [0]

Как можно в делыи использовать свой курсор?

← →
Джо © (2007-02-28 14:58) [1]

В разделе Справки Cursors/Example есть пример.

← →
icWasya © (2007-02-28 15:09) [2]

Пусть у Вас есть файлы с изображениями курсоров - MyCursor.cur и MyDinCursor.ani

1) создайте текстовый файл MyCorsor.rc с таким содержимым
MyCursor Cursor MyCursor.cur
MyDinCursor 21 MyDinCursor.ani

в пятом дельфи для динамических курсоров еще не было названия, поэтому 21

2) подключите его к проекту

3) если хотите использовать курсор как дополнительный к стандартным курсорам, заведите константу
Const crMyCursor:TCursor = 1024;
// число любое, не совпадающее со стандартными

4) где-нибуть при инициализации сделать так
Screen.Cursors[crMyCyrsor]:=LoadCursor(HInstanse,"MyCursor");//дополнительный курсор Screen.Cursors[crHourGlass]:=LoadCursor(HInstanse,"MyDinCursor");//замена стандартному

5)ну а потом при необходимости
Form1.Cursor:=crMyCursor;

← →
ASoft (2007-02-28 16:43) [3]

> icWasya © (28.02.07 15:09) [2]

Между 1 и 2-ым можно(нужно) добавить скомпилить ресурс.. :)

← →
МегаПупс (2007-02-28 17:19) [4]

Всем большой сенкс :)

>ASoft (28.02.07 16:43) [3]
>..скомпилить ресурс
У меня D5 - компилится само

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