Wie kann ich eigene Cursor in mein Programm einbinden?

Am einfachsten bindet man die Cursor als Resourcen ein, dadurch werden sie automatisch in die EXE Datei mit aufgenommen. Man kann z.B. mit dem mitgelieferten Bildeditor eine neue Resourc-Datei erstellen, die den neuen Cursor enthält. Jedem Element innerhalb der Resourcendatei kann man einen eigenen Namen geben (im Beispiel unten TEST1 und TEST2).

1. Im Programm linkt man die Resource dann zu seinem Projekt hinzu:

{$R Dateiname.res}

2. man definiert für seine Cursor eigene Konstanten, die Systemcursor haben Nummern von 0 an abwärts, also können wir bei 1 anfangen:

const MyCursor1 = 1;
      MyCursor2 = 2;

3. im FormCreate Ereigniss kann man dann schließlich das Bild aus der Resource laden:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[MyCursor1] := LoadCursor(HInstance,'TEST1');
  Screen.Cursors[MyCursor2] := LoadCursor(HInstance,'TEST2');
  Screen.Cursor:=MyCursor1;
end;

siehe auch:

Wie kann ich systemweit den Mauscursor ändern?

Delphi FAQ