новый курсор

[krollik]

Надо определённый курсор вставить в delphi так.

[dimoot]

практически в любом компаненте есть свойство Cursor

[Shurr]

Собственный курсор можешь создать в ImageEditor'e, поставляемом с Delphi (папка Delphi\bin\imagedit.exe). Там же его добавляешь в файл ресурсов (xxx.res). Потом в модуле, в котором будешь добавлять курсор его инклудишь (он должен находиться в папке проекта) при помощи директивы {$R}. После этого его надо проинсталировать, и потом ты можешь обращаться к нему по номеру, как к стандартному.

Пример: в коде, приведенном ниже, подразумевается, что файл ресурсов называется "Cursors.res", курсор в нем назван "crMyCursor". При инсталяции курсору присваивается номер 1.

implementation

{$R Cursors.res} // инклуд файла ресурсов

...

procedure TForm1.FormCreate(Sender: TObject);

begin

  Screen.Cursors[1]:=LoadCursor(HInstance,'crMyCursor'); // инсталлляция

end;

...

procedure TForm1.Button1Click(Sender: TObject);

begin

  form1.Cursor:=1; // Установка пользовательского курсора

end;