T__ButtonAncestor.SetFocus Method

mostly internal use, change then IsFocused property is better

Unit: _ButtonsAncestor
procedure SetFocus