handel و کلاس و موس

[firststep]

سلام و ادای احترم
و عرض تسلیت به مناسبت ماه محرم

من قبلاٌ تکه کدی دیده بودم که handel و کلاس و همینطور هم مقدار component که در زیر کرسر موس قرار گرفته بود را بر میگرداند ولی الان هرچه میگردم پیداش نکردم ایا کسی چیزی ذاره که کامل باشه....؟
ممنون با تشکر

[MohsenB]

سلام

از این تابع API باید استفاده کنید :


function WindowFromPoint(Point: TPoint): HWND;


موفق باشید

[SAASTN]

برای کنترلهای داخل برنامه این جواب میده:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
Wnd: HWND;
Control: TControl;
begin
if Msg.message = WM_MOUSEMOVE then
begin
with Msg.pt do
begin
Wnd := WindowFromPoint(Point(X, Y));
Control := FindControl(Wnd);
if Assigned(Control) then
Caption := Format('Wnd:%d, ClassName:%s, ObjectPointer: %p',
[Wnd, Control.ClassName, Pointer(Control)]);
end;
end;
end;


اما برای پنجره های خارج از برنامه باید موس رو Hook کنید.

[Mahmood_M]

یک نمونه ضمیمه کردم

موفق باشید ...