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; |
|