تغيــــــــــــــــير مأشـر الفـــــأرة

بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله

تغيــــــــــــــــير مأشـر الفـــــأرة




const crMyCursor = 5;
crAutreCurseur = 6;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Cursor:=crCross;
Screen.Cursors[crMyCursor] := LoadCursorFromFile('Curseur1.cur');
Screen.Cursors[crAutreCurseur] := LoadCursorFromFile('Curseur2.cur');
Panel1.Cursor:=crMyCursor;
Button1.Cursor:=crAutreCurseur;
end

مشكور على الرد