تغيــــــــــــــــير مأشـر الفـــــأرة
صفحة 1 من اصل 1 • شاطر
تغيــــــــــــــــير مأشـر الفـــــأرة
بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله
تغيــــــــــــــــير مأشـر الفـــــأرة
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
الصلاة السلام على رســــول الله
تغيــــــــــــــــير مأشـر الفـــــأرة
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
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى