أريد تنفيذ حدث عند تحرك الماوس, ولكن عندما تكون الفورم غير مفعلة....
أي أن برنامجي سوف يكون مخفي وعندا تتحرك الماوس أريد تنفيذ أمر معين.......
هل يوجد أحد يمكن أن يفيدني؟؟؟؟؟
وشكرا
حدث تحرك الماوس
السلام عليكم...
استعمل Timer مع ضبط الخاصية Interval على قيمة منخفضة (100 ميللي ثانية أو أقل) و داخل حدث الـ Timer اقرأ إحداثيات موقع مؤشر الفأرة و تصرف على أساسها.
الكود التالي (Form عليها Shape باسم Shape1 و Timer باسم Timer1 و 2 Panels باسم Panel1 و Panel2) يبين مثالين (في نفس الوقت) للاستفادة من متابعة موقع مؤشر الفأرة: 1. معرفة لون النقطة الواقعة تحت المؤشر، 2. معرفة مقبض (Handle) و عنوان (Title) النافذة الواقعة تحت المؤشر:
- implementation
- {$R *.dfm}
- var
- ScreenDC: HDC;
- hWin: HWND;
- PWinCap: PAnsiChar;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- ScreenDC := GetDC(0);
- end;
- procedure TForm1.Timer1Timer(Sender: TObject);
- begin
- Shape1.Brush.Color := GetPixel(ScreenDC, Mouse.CursorPos.X, Mouse.CursorPos.Y);
- try
- GetMem(PWinCap, 255);
- hWin := WindowFromPoint(Mouse.CursorPos);
- GetWindowText(hWin, PWinCap, 255);
- Panel1.Caption := IntToStr(hWin);
- Panel2.Caption := string(PWinCap);
- finally
- FreeMem(PWinCap);
- end;
- end;
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
شكرا على الرد, وشغال معي تماااااااام
جزاك الله كل خير