Handcursorgrafik

[blackdrake]

Ich habe jetzt schon so viel probiert, aber irgendwie funktioniert das nicht ganz...

Delphi-Quellcode:

const
  crWindowsHand = 30; // 0..22 belegt

// [url]http://www.delphi-library.de/viewtopic.php?p=258[/url]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursors[crWindowsHand] := LoadCursor(HInstance, 'IDC_ARROW');
  form1.Cursor := crWindowsHand;
end;

IDC_ARROW scheint nach meinen Recherchen der echte Windows-Handzeiger zu sein. Aber der Code funktioniert nicht.

Gruß
blackdrake