Handcursorgrafik

[blackdrake]

Hallo.

Vielen Dank für den Code! Ich hatte meine Recherchen bereits über Tage partiell verteilt, aber nie etwas passendes gefunden.

Hier der vereinfachte Code:

Delphi-Quellcode:

const
  crWindowsHand = 32649;
  IDC_HAND = MakeIntResource(crWindowsHand);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crWindowsHand] := LoadCursor(0, IDC_HAND);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Cursor := crWindowsHand;
end;

(Huch? TCursor kompatibel mit Integer Cardinal? )

Ich werde noch prüfen, wie das Verhalten bei Windows 95 sein wird (ich möchte keine Exceptions haben).

Eventuell müsste ich prüfen, ob das LoadCursor fehlschlägt (wie?) und dann auf crHandPoint zurückspringen. Wenn ich ein Ergebnis habe, werde ich es hier und in der CodeLib posten.

Gruß
blackdrake