Procedure

TfrmConsults.pnlRightExit

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Comments

Form events -----------------------------------------------------------------

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure pnlRightExit(Sender: TObject);


Source

1236  procedure TfrmConsults.pnlRightExit(Sender: TObject);
1237  begin
1238    inherited;
1239    if TabIsPressed then
1240      FindNextControl(tvConsults, True, True, False).SetFocus
1241    else if ShiftTabIsPressed then
1242      FindNextControl(pnlLeft, True, True, False).SetFocus;
1243  end;