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

من طرف **salme** السبت يناير 21, 2017 5:39 pm

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

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

الكود:: 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

المصدر دلفي تعليم
delph.forumalgerie.net