Mousun form uzerindeki koordinatini ogrenme

[z]

Form uzerinde irili ufakli bir ton kompenent var.

Amacim mousun (cursorun) form uzerindeki koordinati ogrenmek.

Form uzerinde kompenent olmayan bolgelerde mousemove eventi bana bilgi veriyor fakat herhangi bir komponent uzerine gelirsem formun bu eventi kalkiyor bu kez uzerinde bulundugum komponentin mousemove eventi aktif olmaya basliyor.

Bana hic hesap gerektirmeden dogrudan form uzerindeki koordinatlari verecek bir fonksiyon yada baska bir sey varmidir?

[sonercafri]

var
pos:Tpoint;
begin

GetCursorPos(pos);


pos.x
pos.y

umarım işine yarar.