Animierte Cursor im Programm einsetzen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Unter Delphi hat man die Möglichkeit eigene, animierte Cursor einzubinden. Dies geschieht mit der Routine 'LoadCursorFromFile'. Als Parameter wird dieser Funktion nur den Pfad zur *.ani-Datei übergeben:
procedure TForm1.FormCreate(Sender: TObject);
const
crMyCursor = 22391; // x-beliebige Zahl
begin
Screen.Cursors[crMyCursor] := LoadCursorFromFile(ExtractFilePath(Application.ExeName) + 'cursor.ani');
Screen.Cursor := crMyCursor;
end;
const
crMyCursor = 22391; // x-beliebige Zahl
begin
Screen.Cursors[crMyCursor] := LoadCursorFromFile(ExtractFilePath(Application.ExeName) + 'cursor.ani');
Screen.Cursor := crMyCursor;
end;
Die Cursor-Konstante muss größer als 0 sein, denn ansonsten kann es Probleme mit bereits definierten Cursor-Konstanten geben. Möchte man den Cursor auch in anderen Routinen verwenden, sollte die Konstante global, d.h. z.B. im private-Abschnitt des Formulars deklariert werden.
In der Onlinehilfe befindet sich unter dem Stichwort TScreen, Cursors ein Beispiel, wie man eigene Cursors aus einer Ressource einbindet.