GetFocused method |
Applies to
TGUITestCase
Declaration
Function GetFocused: TControl;Implementation
function TGUITestCase.GetFocused: TControl; var i :Integer; begin Assert(GUI <> nil, 'GUI variable not set'); if GUI is TCustomForm then Result := TCustomForm(GUI).ActiveControl else begin Result := nil; for i := 0 to GUI.ComponentCount-1 do begin if (GUI.Components[i] is TWinControl) and TWinControl(GUI.Components[i]).Focused then begin Result := TControl(GUI.Components[i]); BREAK; end end; end; End; |
|