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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:45 am

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

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




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

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى