Form uzerindeki bir nesnenin form 0,0 ina gore koordinatlari

[z]

Form uzerindeki bir nesnenin form 0,0 ina gore koordinatlarini hesap yapmadan ogrenme durumumuz varmi?

Eger nesne dogrudan form uzerinde ise left ve top properties den aradigim cevabi ogrenebiliyorum. Ancak nesne bir baska nesnenin uzerine konmussa (mesela panel uzerindeki bir buton) bu durumda left, top degerleri panele gore ogreniliyor. Form koordinatlarini bulmak icin panelin koordinatini da gozonune alip hesaplamam gerekiyor.

Halbuki dogrudan herhangi bir nesnenin form0.0 ina gore koordinatlarinin ogrenilmeliyim diye dusunuyorum.

Boyle bir bilgi varmi?

[sekoli]

Selamlar,

Düşünceniz doğru, aradığınız bilgiye ClientToParent fonksiyonu ile ulaşabilirsiniz.
İyi çalışmalar.

Örn :

var pt : TPoint;
Begin
  pt := Button1.ClientToParent(Point(0,0));
End;

[orhanc]

procedure TForm4.Button1Click(Sender: TObject);
var
  p : TPoint;
begin
  p := Button1.ClientToParent(Point(0,0),Form4);
  Edit1.Text := Format('%d,%d',[p.X,p.Y]);
end;