Tab method |
Applies to
TGUITestCase
Declaration
Procedure Tab(n :Integer =1);Implementation
procedure TGUITestCase.Tab(n: Integer); var i :Integer; s :TShiftState; begin Assert(GUI <> nil, 'GUI variable not set'); s := []; if n < 0 then begin s := [ssShift]; n := -n; end; for i := 1 to n do EnterKey(VK_TAB); Application.ProcessMessages; Sleep(ActionDelay); End; |
|