Cursor Austauschen

[hirnstroem]

Hi Folks,

in einem Projekt soll ein Mauscursor während der Laufzeit ausgetauscht werden. Mir schwebte vor, dies folgendermassen zu realisieren:

1. rc Datei erstellen (cursor_man BITMAP cursor_man.bmp)
Hier stellt sich mir die Frage als was ich den späteren Cursor deklarieren soll...Bitmap, crCursor, funtzt irgendwie alles nicht

2. res draus machen

3. res in Delphi einbinden

4. entsprechende Prozedur schreiben

Delphi-Quellcode:

procedure TFDSC_Sim.CursorChange(Sender: TObject);
const
  crManCursor = 1;
begin
  Screen.Cursors[crManCursor]:= LoadCursor(HInstance, 'cursor_man');
  Screen.Cursor := crManCursor;
end;

5. Cursor sehen wenn Prozedur ausgeführt wird

6. Ärgern wenn gewünschter Cursor nicht erscheint

Vielen Dank schon mal an all jene, welche dafür verantwortlich sind, dass jemand es schafft, das zu machen, was er will -.-