Handcursorgrafik

[blackdrake]

So müsste es nun eigentlich funktionieren. Ich teste es morgen auf meinem 95-Testpc

Delphi-Quellcode:

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

var
  crWindowsHand: TCursor;

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

  if Screen.Cursors[NIDC_HAND] = NULL then
  begin
    crWindowsHand := crHandPoint;
  end
  else
  begin
    crWindowsHand := NIDC_HAND;
  end;
end;

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

Mich ärgert, dass ich crWindowsHand nun als Variable machen musste. Andernfalls hätte ich nicht auf crHandPoint zurückspringen können (da Konstanten unveränderbar sind). Oder gibt es eine elegantere Lösung?

Gruß
blackdrake