Procedure

TfrmProcedures.btnOtherExit

Module

fProcedure

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmProcedures

Declaration

procedure btnOtherExit(Sender: TObject);


Source

511   procedure TfrmProcedures.btnOtherExit(Sender: TObject);
512   begin
513     if TabIsPressed then begin
514       if lbGrid.CanFocus then
515         lbGrid.SetFocus;
516     end
517     else if ShiftTabIsPressed then
518       if lbMods.CanFocus then
519         lbMods.SetFocus;    
520   end;