Советы по 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]



Содержание раздела