+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إستخراج المقبض Handle لأيي شيء يتم النقر عليه بالماوس (/showthread.php?tid=10665)
إستخراج المقبض Handle لأيي شيء يتم النقر عليه بالماوس - MasteranyOne - 16-02-2020
السلام عليكم ورحمة الله تعالى وبركاته
السؤال : كيف يمكنني إيجاد المقبض Handle لأيي شيء انقر عليه بالفأرة mouse ؟
المحاولة الغير ناجحة :
كود :
procedure TForm1.FormClick(Sender: TObject);
Var
pt : Tpoint;
HH: hWnd;
begin
GetCursorPos(pt);
HH := windowfrompoint(Pt) ;
edit1.Text:=inttostr(HH);
end;بارك الله فيكم وجزاكم الله خيرا
RE: إستخراج المقبض Handle لأيي شيء يتم النقر عليه بالماوس - MasteranyOne - 16-02-2020
وعليكم السلام ورحمة الله تعالى وبركاته
يمكنك إستعمال الكود التالي (يمكن إستعمال 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;بالتوفيق ,,