قد يحتاجه البعض ...تحديد ...بالماوس

عفوا منكم لهذا الخطأ.........(gift):o

fox.zip

;);)

شكرا جزيلا (f)

أخي

أ أنظر إلى دروس الapi

لقد قمت بعمل نموذج منذ فترة:)

على غرار المكبرة من فترة

ولو كان هناك بالفعل راغبين جديين بتعلم الapi

لكنا قد حللنا طرق عمل برامج شهيرة كال wininfo وغيرها

(f)

شكرا للشباب ...لتجوابهم ....

اخي رضا ....شو رأيك ..بعدم تثبيت موضوع الAPI

مما يجعله....مقروء من قبل الأعضاء .... :o

مجرد رأي خاص :rolleyes:

اخوكم:cool:

شكرا احلى FOX....(f)

وان شاء الله يزيدك علما فوق علمك(f)(f)

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  If GetCapture = 0 then

    SetCapture(Form1.Handle);

  if PtInRect(Rect(Form1.Left,

                   Form1.Top,

                   Form1.Left + Form1.Width,

                   Form1.Top + Form1.Height),

                   ClientToScreen(Point(x, y))) then

  Form1.Caption := 'الماوس فوق الفورم' else

  Form1.Caption := 'الماوس خارج الفورم';

end;

:)