Delphi - база знаний


Как использовать свои курсоры?


Как использовать свои курсоры?



{$R CURSORS.RES}

const


crZoomIn = 1; 
crZoomOut = 2; 

Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN');
Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT'); 

С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры или заменить зеленое на конкретное имя файла(он должен также поставляться с программой).

Взято с сайта



Начало  Назад  Вперед



Книжный магазин