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;


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