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