Animierte Cursor einsetzen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Als erstes benötigt man ein Handle auf einen Windows-Cursor und weist ihn dem Cursor-Array der TScreen-Komponente zu.Vordefinierte Cursor beginnen mit einem negativen Index, benutzerdefinierte Cursor mit einem positiven.Das folgende Beispiel ist ein Delphi-Fenster, das einen animierten Cursor verwendet:
procedure TForm1.Button1Click(Sender: TObject);
var h: THandle;
begin
h:=LoadImage(0, 'C:\TheWallMagic.ani', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h=0 then ShowMessage('Cursor nicht geladen')
else begin
Screen.Cursors[1]:=h;
Form1.Cursor:=1;
end;
end;