Установка собственного курсора

[Amateur]

Здравствуйте!

Думаю, уже все сталкивались с такими свойствами самой формы, таблиц и кнопок: если навести мышку на объект1, то, согласно свойству Cursor объекта1 курсор вашей мыши будет отображаться в виде курсора, указанного в св-ве Cursor.

Короче, можно для того или иного объекта менять отбражение курсора, как вздумается. НО! Доступны только стандартные курсоры.

У меня же есть парочка новых, в формате .ico. Как их воткнуть в приложение? Желательно, чтобы готовый .exe включал внутрь себя эти курсоры.

[AlDelta]

{$R CURSORS.RES}
const
crZoomIn = 1; 
crZoomOut = 2; 

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

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

Включить курсоры в файл ресурсов:http://programmersforum.ru/showthread.php?t=5274&highlight=%CA %F3%F0%F1%EE%F0


Если курсоры не включаются в ресурсный файл - нужно указать путь к ним.

[Amateur]

Ок, благодарствую. Для запихивания файлов в ресурс использовал стороннюю прогу Resource Builder. Рекомендую!

[Volkogriz]

procedure TMainForm.FormActivate(Sender: TObject);
var
h : THandle;
begin
h := LoadImage(0, 'Sys/Cursr/Transparent Arrow.cur', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[1] := h;
AdrPanel.Cursor := 1;
SpeedBarBottom.Cursor := 1;
h := LoadImage(0, 'Sys/Cursr/Hand.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[2] := h;
AdressList.Cursor := 2;
btAdd.Cursor := 2;
btModify.Cursor := 2;
btClear.Cursor := 2;
btDelete.Cursor := 2;
btExit.Cursor := 2;
Button1.Cursor := 2;
Button2.Cursor := 2;
Button3.Cursor := 2;
Button4.Cursor := 2;
h := LoadImage(0, 'Sys/Cursr/StatusBar.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[3] := h;
StatusBar.Cursor := 3;
h := LoadImage(0, 'Sys/Cursr/IBeam.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[4] := h;
edComment.Cursor := 4;
Edit1.Cursor := 4;
Search.Cursor := 4;
h := LoadImage(0, 'Sys/Cursr/But.Cur', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[5] := h;
edSurname.Cursor := 5;
edHomeTel.Cursor := 5;
edHomeAdr.Cursor := 5;
edWorkTel.Cursor := 5;
edMobiTel.Cursor := 5;
edCity.Cursor := 5;
edCountry.Cursor := 5;
edWeb.Cursor := 5;
edEMail.Cursor := 5;
h := LoadImage(0, 'Sys/Cursr/6.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[7] := h;
Image2.Cursor := 7;
h := LoadImage(0, 'Sys/Cursr/Help.Cur', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursors[6] := h;
Image1.Cursor := 6;
end;

Разберётесь!!!
C уважением Vlkogriz!

[LeoN]

Вот в ресы кидают,а как кинуть в DLL и не компилировать в EXE и как с этим DLL раюотать?