Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Курсор Найти похожие ветки
← →
Максим (2004-05-16 12:24) [0]Как сделать, чтобы в список стандартных курсоров загнать свой нарисованный. В списке только стандартные курсоры Windows, а я делаю одну программу и мне нужно, чтобы, когда наводишь на какой-либо компонент или область изменялся курсор. Так как стиль программы должен быть единый, мне нужны не стандартные виндосовские, а свой, например, нарисованный в Paint, или ещё где-нибудь. Подскажите, пожалуйста, любой способ решения этой проблемы.
← →
begin...end © (2004-05-16 13:44) [1]Засунуть курсор в ресурс, затем в программе загрузить его оттуда и зарегистрировать в списке курсоров (TScreen.Cursors, LoadCursor), а потом уже назначать его какому-нибудь компоненту.
← →
Максим (2004-05-19 19:53) [2]Как курсор из ресурса зарегестрировать в списке курсоров?
← →
begin...end © (2004-05-19 20:37) [3]
{$R MyRes.res}
Screen.Cursors[1] := LoadCursor(HInstance, "MYCURSOR")
Здесь MYCURSOR - имя курсора в ресурсе.
Но можно обойтись и без ресурса, загрузив курсор непосредственно из файла *.cur:Screen.Cursors[1] := LoadCursorFromFile(PChar("C:\MyCursor.cur"))
А потом можно назначить этот курсор какому-нибудь компоненту, например, форме:MyFormName.Cursor := 1
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.03 c
