اجعل مؤشر الماوس يحرك ديله

سلام

بعد ان تكون مشروع جديد خزن هدا المشروع داخل فولدر معين ,

تم ضع زر + Timer على الفورم , تم ضع الاوامر التالية في الفورم

unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls;



type

  TForm1 = class(TForm)

    Timer: TTimer;

    Button1: TButton;

    procedure TimerTimer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

     procedure start(enabled: boolean);

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  Curs:     Integer;

  StopCurs: Boolean;

implementation



{$R *.DFM}



{$R Coursers.res}







procedure TForm1.TimerTimer(Sender: TObject);

begin

     inc(Curs);

     if Curs > 12 then

     begin

          Curs := 1;

          if StopCurs then timer.enabled := false;

          if StopCurs then Curs := crDefault;

     end;

     screen.cursor:= Curs;





end;



procedure TForm1.FormCreate(Sender: TObject);

begin

screen.cursors[1] := LoadCursor(hInstance, pChar('CURSOR_1'));

  screen.cursors[2] := LoadCursor(hInstance, pChar('CURSOR_2'));

  screen.cursors[3] := LoadCursor(hInstance, pChar('CURSOR_3'));

  screen.cursors[4] := LoadCursor(hInstance, pChar('CURSOR_4'));

  screen.cursors[5] := LoadCursor(hInstance, pChar('CURSOR_5'));

  screen.cursors[6] := LoadCursor(hInstance, pChar('CURSOR_6'));

  screen.cursors[7] := LoadCursor(hInstance, pChar('CURSOR_7'));

  screen.cursors[8] := LoadCursor(hInstance, pChar('CURSOR_8'));

  screen.cursors[9] := LoadCursor(hInstance, pChar('CURSOR_9'));

  screen.cursors[10]:= LoadCursor(hInstance, pChar('CURSOR_10'));

  screen.cursors[11]:= LoadCursor(hInstance, pChar('CURSOR_11'));

  screen.cursors[12]:= LoadCursor(hInstance, pChar('CURSOR_12'));

  Curs := 0;

end;



procedure TForm1.start(enabled: boolean);

begin

     StopCurs := not enabled;

     if not timer.enabled then timer.enabled := enabled;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

start(true);

end;



end.

بعد دللك انت محتاج الى تنزيل ملف المصادر Resource الدي يحتوي على مجموعة من Cursors التي ستنفد حركة الماوس .

ملف المصادر

بعد تنزيل الملف ضعه في نفس الدليل الدي يوجد به البرنامج .

لكي تعرف محتوي ملف المصادر قم بعمل التالي ,

من قائمة دلفي افتح tools

تم Image Editor

سوف يتنفد برنامج معالج الصور

من قائمة البرنامج افتح open تم افتح ملف المصادر الدي انزلته ,

سوف يفتح لك الملف و سوف يكون بامكانك استعراض الصور الموجودة به .

اهم نقطة اريد ان اوطحها هي طريقة استدعا ملف المصارد

وهدا هو الامر ( ستجده في الاعلى ضمن البرنامج )

{$R Coursers.res}

واي ايضاحات اتصل عبر الفريق العربي للبرمجة . ;)

وشكرا