Procedure

TfrmConsults.frmFramePnlPatientExit

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmConsults

Declaration

procedure frmFramePnlPatientExit(Sender: TObject);

Called-By Hierarchy


TfrmConsults.frmFramePnlPatientExit
            TfrmConsults.FormShow┘ 

Called-By

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


Source

4810  procedure TfrmConsults.frmFramePnlPatientExit(Sender: TObject);
4811  begin
4812    FOldFramePnlPatientExit(Sender);
4813    if ShiftTabIsPressed then
4814      FindNextControl( pnlRight, False, True, False).SetFocus;
4815  end;