منتديات أهل الجزائر
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  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
alla23
عضو ماسي
عضو ماسي

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

http://delph.forumalgerie.net

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

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


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