Procedure

TfrmConsults.DoLeftPanelCustomShiftTab

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Comments

FMousing: TDateTime;

Visibility

Private

Owner

TfrmConsults

Declaration

procedure DoLeftPanelCustomShiftTab;

Called-By Hierarchy


TfrmConsults.DoLeftPanelCustomShiftTab
      TfrmConsults.cmdNewConsultExit┤ 
    TfrmConsults.cmdEditResubmitExit┘ 

Called-By

Name Declaration Comments
TfrmConsults.cmdEditResubmitExit procedure cmdEditResubmitExit(Sender: TObject); -
TfrmConsults.cmdNewConsultExit procedure cmdNewConsultExit(Sender: TObject); -


Source

3886  procedure TfrmConsults.DoLeftPanelCustomShiftTab;
3887  begin
3888    if ShiftTabIsPressed then begin
3889      FocusToRightPanel := True;
3890      FindNextControl(frmFrame.pnlPatient, False, True, False).SetFocus;
3891    end;
3892  end;