Änderung des Cursors

[Umezawa]

Delphi-Quellcode:

const

  crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
  Cursor := crMyCursor;
end;

Steht in der hilfe: TScreen.Cursors