Ocr_hand

[Satyr]

Huhu,

ich wechsele für mein Programm grade zur Laufzeit einige Cursor aus. Klappt im Grunde auch Prima. Nur nicht bei OCR_HAND. Laut Google Suche verwendet Delphi bei diesem einen Cursor nicht den Windows Standard sondern einen eigenen, weshalb ich diesen nicht tauschen kann.
Ich hab viele Beispiele gefunden wie ich den Windows Standard Cursor einbinden kann, nicht aber wie meinen eigenen.
Mein Code zum Cursorwechsel ist:

Delphi-Quellcode:

[..]
  hp:=LoadImage(0, PChar(ExtractFilePath(Application.Exename) + '..\img\cursor\pointer.cur'), IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
  if hp=0 then ShowMessage('Pointer Cursor not found')
  else begin
    Screen.Cursors[3]:=hp;
  end;
[..]

SetSystemCursor(Screen.Cursors[3],OCR_HAND);

Wie gesagt, funktioniert bei allen Cursorn außer OCR_HAND. Was muss ich ändern damit das auch da geht?

Gruß,
Andreas

[himitsu]

Wenn du schon weißt, daß Delphi hier nicht den SystemCursor verwendet, dann kann es vermutlich nicht viel bringen, wenn man versucht den SystemCurser auszutauschen, welcher dann eh nicht verwendet wird.

Du könntest es mal mit Screen.Cursors versuchen.
Ansonsten hast du die VCL-Quellcodes und da müßtest du einfach mal nachsehn, wo Delphi den Cursor herholt und dann rausfinden, wo man dieses ändert.

[Satyr]

Von der Theorie dachte ich mir das so. Ich durchsuche nur schon seit ner Woche die entsprechenden Units, ohne zu finden was ich überschreiben müsste *grml*.

[Satyr]

Hab die Lösung im Embarcado Forum gefunden.
Einfach bevor alle Cursor ausgetauscht werden, diese Zeile einfügen:

Screen.Cursors[crHandPoint] := LoadCursor(0,IDC_HAND);