GetHintControl function

TControl? GetHintControl(
  1. TControl? Control
)

Implementation

TControl? GetHintControl(TControl? Control)
{
  var Result = Control;
  while((Result != null) && !Result.ShowHint)
    Result = Result.Parent;
  if((Result != null) && (Result.ComponentState.contains(ComponentStates.Designing)))
    Result = null;
  return Result;
}