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