Nomadic предлагает следующее:
{$R CURSORS.RES} const crZoomIn = 1; crZoomOut = 2; Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN'); Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT'); |
С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры. [001524]