Procedure

TfrmConsults.cmdNewConsultExit

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure cmdNewConsultExit(Sender: TObject);

Calls Hierarchy


TfrmConsults.cmdNewConsultExit
 └TfrmConsults.DoLeftPanelCustomShiftTab

Calls

Name Declaration Comments
TfrmConsults.DoLeftPanelCustomShiftTab procedure DoLeftPanelCustomShiftTab; -


Source

1406  procedure TfrmConsults.cmdNewConsultExit(Sender: TObject);
1407  begin
1408    inherited;
1409    if Not cmdEditResubmit.Visible then
1410      DoLeftPanelCustomShiftTab;
1411  end;