Советы по Delphi
Как использовать свои курсоры в программе? II
С помощью программы Image Editor упакуйте курсор в RES-файл. В следующем примере подразумевается, что вы сохранили курсор в RES-файле как "cursor_1", и записали RES-файл с именем MYFILE.RES.
|
{$R c:\programs\delphi\MyFile.res} { Это ваш RES-файл } const PutTheCursorHere_Dude = 1; { произвольное положительное число } procedure stuff; begin screen.cursors[PutTheCursorHere_Dude] := LoadCursor(hInstance, PChar('cursor_1')); screen.cursor := PutTheCursorHere_Dude; end; |
[001537]
