FindParentWinControl method

Applies to
TGUITestCase

Declaration
Function FindParentWinControl(Control :TControl): TWinControl;

Implementation

function TGUITestCase.FindParentWinControl(Control: TControl): TWinControl;
begin
  while (Control <> nil) and not (Control is TWinControl) do
    Control := Control.Parent;
  Result := TWinControl(Control);
End;


HTML generated by Time2HELP
http://www.time2help.com