مختصات یک شئ داخل پنل از فرم

[sara.mahdavi]

با سلام:لبخندساده:
من یک شئ دارم داخل یک پنل، میخوام فاصله اون رو تا لبه بالایی و کناری فرمم بدست بیارم
چون این کار رو می خوام برای چند شئ دیگه که هرکدوم اونا توی یک پنل جداگونه هستند نیز انجام بدم، نمیشه با استفاده از جمع و تفریق طول و عرض پنل و فرم این مختصات رو بدست بیارم :ناراحت:
لطفا بگید چطوری این مختصات رو بدست بیارم؟؟؟

فکر کنم خیلی گیج کننده توضیح دادم :گیج:

با تشکر:چشمک:

[یوسف زالی]

سلام.
مثال زیر رو ببینید:


function GetAbsolutePosition(Control: TControl): TPoint;
var
ParentForm: TCustomForm;
begin
Result := Point(0, 0);

if not Assigned(Control) then
Exit;

ParentForm := GetParentForm(Control);

if Assigned(ParentForm) then
Result := Control.ClientToParent(Result, ParentForm);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
p: TPoint;
begin
p := GetAbsolutePosition(Button1);
ShowMessage(Format('Absolute Left = %d, Absolute Top = %d', [p.X, p.Y]));
end;