delphi useful functions دوال و إجراءات دلفي مفيدة

[S.FATEH]

السلام عليكم

موقع المكون على الـ form يحدد بخاصيتين top و left
لكن اذا كان مكون مثلا Edit داخل مكون اخر حامل مثل panel فان top و left
تكون بالنسبة للمكون الاب في حالتنا panel ماذا اذا كان لدينا مكون panel2 على الـ form
و اردنا انا نحاذيه تحت الـ edit مباشرة نحتاج الى معرفة الاحادثيات المطلقة للمكون يمكن ذلك عن طريقة ClientToScreen

هذه الدالة تقوم باعادة الاحداثيات المطلقة للمكون:

PHP كود :

function GetScreenCoordinates(AControl: TControl): TPoint;
begin
  if AControl.Parent <> nil then
  begin
    Result := AControl.Parent.ClientToScreen(Point(AContol.Left, AControl.Top));
  end
  else
  begin
    Result := Point(AContol.Left, AControl.Top);
  end;
end;