ПредишенСледващото

Вероятно не на INI и Ани?
Ние трябва да prikompilit файл (а) на курсора (и) като ресурс (и) към Търсейки-файл (или DLL) приложения, както и след това да ги изтеглите от този ресурс и да се определят от типа на екрана обект Screen.Cursors на [nomer_kursora]: = LoadCursor (.) ;

Самият аз направих така, но за да се рови в изходния код на нежеланието на. Тук е един от многото примери в DelphiWorld (съветвам да изтеглите):
Дефиниране и използване на курсора
--------------------------------------------------------------------------------
Първо (тъй като много попаднат в този капан), уверете се, че името .RES-файл, в който да запазите курсора на мишката е различна от .RES-файла на вашия проект, т.е. ако вашият проект има име MyApp.DPR, не използвайте за съхранение на нови файлови ресурси MyApp.RES. Трябва да се създаде отделна .RES-файл с различно име (например MyApp01.RES) и го включи в своя проект като този:


Вие не можете да зададете на курсора Курсор собственост на компонент или DragCursor .RES-файл директно, трябва да извършите редица междинни етапи. Всеки проект Delphi определя глобален обект, наречен Screen (тип TScreen), който, между другото, определя масив от указатели, наречени, достатъчно странно, курсори. Когато кликнете върху имущество на курсора / DragCursor в инспектора на обекта, падащия списък и списък на елементите на посочения масив.

За предшественици Delphi използва елементите на масив с индекси, вариращи от 1 или по-малко (т.е. само отрицателни числа), така че можете да притежавате курсори място със сериен номер започва с нула и по-горе.

За да започнете, определи постоянна, да кажем така:


На следващо място, трябва да изтеглите курсора. Това може да стане в случай манипулатор OnCreate на формата:


След това трябва само да зададете DragCursor собственост на никакъв контрол:

Забележка: Името на курсора на мишката трябва винаги да се пише с големи букви, като се обадите на LoadCursor, и на нейно име .RES-файл.

Подкрепете проекта - споделете линка, благодаря!