Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Курсор. Help. 


novomod   (2002-02-16 10:37) [0]

Каким образом можно поменять вид курсора?
(т.е. не crArrow,crCross,crDrag и т.д. а вставить из файла .cur)
Спасибо за ответы по теме!



MBo   (2002-02-16 10:50) [1]

1)нарисовать курсор, причем имя RES должно отличаться от проекта,
включить {$R CoolCur.Res}
2)определить
Const СoolCursor=положительно число;
3) загрузить
Screen.Cursors[Coolursor]:=LoadCursor(HInstance,"COOLCUR");

теперь можно делать
Image1.Cursor:=Coolursor;



Набережных С.   (2002-02-16 11:45) [2]

А если из файла .Cur, .Ani, то:
Screen.Cursors[Coolursor]:=LoadCursorFromFile(pChar(CursorFileName));



novomod   (2002-02-22 00:12) [3]

Благодарю сделал:
const
Mycur=5;
begin
Screen.Cursors[Mycur]:=LoadCursorFromFile("CursorFileName");
cursor:=Mycur;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.012 c
1-32442           AlexPro!              2002-02-22 14:09  2002.03.11  
Опять про Memo !!!!!!!!!!!!


1-32480           smax                  2002-02-24 15:07  2002.03.11  
Пару штрихов на Assembler е


1-32469           Nigth                 2002-02-23 18:16  2002.03.11  
TMediaPlayer


1-32443           Turalyon              2002-02-20 09:00  2002.03.11  
Сервис


1-32506           Vladimir K.           2002-02-22 04:42  2002.03.11  
Подвисание формы при выполнении цикла