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

[SMP3]

طريقة أخرى

PHP كود :

function GetScreenCoordinates2(AControl: TControl): TPoint;
var
  R: TRect;
begin
  Result := Point(0, 0);
  if AControl is TWinControl then
    begin
      GetWindowRect(TWinControl(AControl).Handle, R);
      Result := Point(R.Left, R.Top);
    end
  else
    begin
      GetWindowRect(AControl.Parent.Handle, R);
      Result := Point(R.Left + AControl.Left, R.Top + AControl.Top);
    end;
end;