delphi4arab منتديات دلفي للعرب

بسم الله الرحمان الرحيم

هذا المشروع يمثل كيفية تغيير شكل الفارة بايقونة او شكل اخر
الكود:

كود :
Screen.Cursors[1]:=icon.Handle
                                    screen.Cursor:=1

السلام عليكم ورحمة الله وبركاته
الله يجزاك خير مثال شامل اعجبني الله يعطيك العافيه وأفضل مافيه أنك تستطيع تحدد الأيقونة التي تريدها ومحموله
تحياتي

السلام عليكم
جميل...
انتبه للشرط، ينقص شيء:

كود :
if OpenDialog1.Execute then [color=Red]begin[/color]
  Icon.LoadFromFile(OpenDialog1.FileName);
  Screen.Cursors[1]:=icon.Handle;
  screen.Cursor:=1;
[color=Red]end[/color];

شكرا على الملاحظة اخي لكن المرفقات تحوي ذالك

King SofT كتب :شكرا على الملاحظة اخي لكن المرفقات تحوي ذالك

لا المرفقات لا تحوي ذلك، أقصد أنها كما ذكر الأخ : تنقص begin و end; داخل الشرط.
على كل حال بارك الله فيك ^^

King SofT

قديم الشوق

kachwahed

King SofT

nadirsetif