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

السلام عليكم

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

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

شااااكرين

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

إقتباس :procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursor := LoadCursorFromFile('2.cur');
Form1.Cursor := 2;
end;

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

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

cargem كتب :اولا حمل الصورة بصيغة .cur

السلام عليكم

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

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

كود :
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;

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

أو

كود :
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%
الله يزوجك الثانية Smile

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

المحجوب

cargem

King SofT

المحجوب

paix144

paix144

المحجوب

paix144