Thema: Delphi Cursor Austauschen

Einzelnen Beitrag anzeigen

hirnstroem

Registriert seit: 21. Sep 2005
297 Beiträge
 
Delphi 2006 Professional
 
#1

Cursor Austauschen

  Alt 1. Nov 2005, 14:52
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 -.-
  Mit Zitat antworten Zitat