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

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

السؤال : كيف يمكنني إيجاد المقبض Handle لأيي شيء انقر عليه بالفأرة mouse ؟

المحاولة الغير ناجحة :

كود :
procedure TForm1.FormClick(Sender: TObject);
  Var
	  pt : Tpoint;
	  HH: hWnd;
begin
  GetCursorPos(pt);
  HH := windowfrompoint(Pt) ;
  edit1.Text:=inttostr(HH);
end;

في هذه المحاول تعمل فقط في نفس الفورم , أريدها تعمل في أيي فورم موجودة على سطح المكتب حتى وإن كانت لبرامج أخرا

بارك الله فيكم وجزاكم الله خيرا

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

يمكنك إستعمال الكود التالي (يمكن إستعمال Thread مكان Timer) :

كود :
procedure TForm1.Timer1Timer(Sender: TObject);
var
  pt : TPoint;
  HH : hWnd;
begin
   GetCursorPos(pt);
   edit1.Text := inttostr(pt.x)+' : '+inttostr(pt.y);
   HH := windowfrompoint(Pt) ;
   edit2.Text := inttostr(HH);
end;

بالتوفيق ,,

MasteranyOne

MasteranyOne