Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Вниз

crHandPoint   Найти похожие ветки 

 
_наблюдатель_   (2004-01-13 18:18) [0]

Товарищи сопрограммеры! Есть такой вопрос. Всем известно, что у визуальных компонентов есть свойство Cursor. У него есть значение crHandPoint, которое соответствует изображению руки. Но эта "рука" в Delphi своя, а как на её место поставить "руку", которая установлена в системе, т.е. её изображение.
Есть один извращённый вариант - прочитать в реестре (щас ветку не помню), путь к *.CUR файлу, соответствующему этому изображению, и дальше как обычно.
А есть ли более нормальный способ?


 
Семен Сорокин ©   (2004-01-13 20:16) [1]

это, имхо, в сторону Screen.Cursors копать


 
YuRock ©   (2004-01-13 20:27) [2]


SetClassLong(Handle, GCL_HCURSOR, Integer(LoadCursor(hInstance, PChar(32761))));


Будет работать классно!


 
YuRock ©   (2004-01-13 20:35) [3]

Извиняюсь, соврал - тоже из ресурсов берет...


 
YuRock ©   (2004-01-13 20:40) [4]


SetClassLong(Handle, GCL_HCURSOR, Integer(LoadCursor(0, LPSTR(32649))));


А вот так точно будет классно!!!


 
YuRock ©   (2004-01-13 20:41) [5]

Кстати, 32649 = IDC_HAND :))


 
_наблюдатель_   (2004-01-14 13:22) [6]

Большое вам спасибо. Будем работать!



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

Форум: "Система";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.031 c
3-1078512059
dma_database
2004-03-05 21:40
2004.04.04
TTable TDataBase


1-1079272282
Жорик
2004-03-14 16:51
2004.04.04
Как сделать форму активной?


1-1079637510
maxXP
2004-03-18 22:18
2004.04.04
Как определить запущена ли программа...


3-1078372294
Genemy
2004-03-04 06:51
2004.04.04
cross-tab отчет в FR


3-1078662906
Крутыш
2004-03-07 15:35
2004.04.04
Устанавливаю свойство edgosmartrefresh и не работает удаление





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский