Cursor per Resource einbinden

[marabu]

Moin,

vermutlich hat deine Cursor-Ressource nicht das korrekte Format.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
const
  crMyCursor = 4711;
var
  h: TCursor;
begin
  h := LoadCursor(hInstance, 'test123');
  if h = 0 then
    ShowMessage(SysErrorMessage(GetLastError)) else
  begin
    Screen.Cursors[crMyCursor] := h;
    Screen.Cursor := crMyCursor;
  end;
end;

Grüße vom marabu