كود لتغير مؤشرات الماوس

تستخدم دلفي مؤشرات الماوس الافتراضية في windows ولتغير هذه المؤشرات أستخدم الكود التالي

procedure TForm1.FormCreate(Sender: TObject);

begin

screen.cursors[1]:=LoadCursorFromFile('1.ani');

screen.cursors[2]:=LoadCursorFromFile('2.ani');

screen.cursors[3]:=LoadCursorFromFile('3.ani');

speedbutton1.Cursor:=1;

form1.Cursor:=2;

panel1.Cursor:=3;

end;