Нестандартный курсор

Здравтсвуйте! Подскажите пожалуйста как можно в программу, на определенную форму сделать нестандартнуй курсор? Например ввиде какогонибудь рисунка.
6 ответов

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


а если только на форму то const PutTheCursorHere_Dude = 1;procedure TForm1.FormCreate(Sender: TObject);begin Screen.Cursors[PutTheCursorHere_Dude] := LoadCursor(hInstance,PChar('cursor_1')); Cursor := PutTheCursorHere_Dude;end


Спасибо большое. Ща прикалюсь над пользавателем!


А как сохранить курсор в res файл?


Image EditorМеню: File / New / Resurce File(.res)или File / Open / Resurce File(.res)Далее в файле на Contens правой мышкой New / Cursor На новом курсоре Edit - и рисуем


Спасибо большое. Ща прикалюсь над пользавателем!
детский сад, чесслово ;)