Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Курсор [XP]

МегаПупс © (2007-02-28 14:09:00)
Как можно в делыи использовать свой курсор?

icWasya (2007-02-28 17:21:00) [1]
>ASoft (28.02.07 16:43) [3]
>..скомпилить ресурс
У меня D5 - компилится само

МегаПупс (2007-02-28 17:19:00) [2]
Всем большой сенкс :)

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

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

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

icWasya (2007-02-28 15:09:00) [4]
Пусть у Вас есть файлы с изображениями курсоров - 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;

Джо (2007-02-28 14:58:00) [5]
В разделе Справки Cursors/Example есть пример.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »