Cursor durch einen selbstgemachten ersetzen

[Die Muhkuh]

Hi,


hab alles nach einweisung gemacht.

Code:

Delphi-Quellcode:

const
  crMyCursor = 5;

[...]

procedure TForm.Create(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'B');
  Cursor := crMyCursor;
end;

Aber da passiert nix.

In .Res von dem Programm ist der Cursor mit dem Namen B drinne. aber es geht nicht. Es gibt keine Exception oder so. Der Cursor ist einfach der Alte.