Procedure

TfrmRemCoverSheet.btnViewExit

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemCoverSheet

Declaration

procedure btnViewExit(Sender: TObject);


Source

1850  procedure TfrmRemCoverSheet.btnViewExit(Sender: TObject);
1851  begin
1852    inherited;
1853    //TDP - CQ#19733 Corrected tabbing issues
1854    if TabIsPressed() then
1855    begin
1856      if ScreenReaderSystemActive then lblCAC.SetFocus
1857      else begin
1858        if pnlUser.Visible then cbxUserLoc.SetFocus
1859        else cbSystem.SetFocus;
1860      end;
1861    end;
1862    if ShiftTabIsPressed() then lvView.SetFocus;
1863  end;