كيف يتم استخدام صورة بدل الفأرة داخل الفورم

[المحجوب]

السلام عليكم

كيف يتم استخدام صورة وتحريكها داخل الفورم بدلاً عن الفأرة الاعتيادية
وكيف يتم تحريك الاجسام داخل الفورم عن طريق ازرار الكيبورد ( فوق تحت يمين يسار )

الهدف انشاء لعبة ...


شااااكرين

[cargem]

اولا حمل الصورة بصيغة .cur

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursor := LoadCursorFromFile('2.cur');
Form1.Cursor := 2;
end;

[King SofT]

وعليكم السلام اخي

http://www.delphi4arab.net/forum/showthr...p?tid=2631

[المحجوب]

اولا حمل الصورة بصيغة .cur

السلام عليكم

شكراً اخي لسرعة التجاوب
وقد فعلت مثل ما قلت بالضبط حملت صورة بصيغة cur ووضعت الكود داخل الفورم
ووضعت امتداد الصورة من داخل المجلد المحتوي على المشروع
لكن لم تظهر الصورة هل يوجد شرط ناقص ؟؟
عموماً المثال مرفق اطلع عليه وعدل ما نقص

[paix144]

السلام عليكم ورحمة الله
اتبع ما يلي أخي

كود :

const
  [color=Red]crMyCursor[/color] = 5;

كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[[color=Red]crMyCursor[/color]] := LoadCursorFromFile('2.cur');
Form1.Cursor := [color=Red]crMyCursor[/color];
end;

المثال في المرفقات

[paix144]

أو

كود :

const
  crMyCursor = [color=Lime]5[/color];

كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursorFromFile('2.cur');
Form1.Cursor :=[color=Lime] 5[/color];
end;

[المحجوب]

وصلت هذا شغال 100%
الله يزوجك الثانية

[paix144]

لست متزوج لكن واحدة تكفيني