Procedure

TfrmRemDlg.ClinMaintDestroyed

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Protected

Owner

TfrmRemDlg

Declaration

procedure ClinMaintDestroyed(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.ClinMaintDestroyed
 └TfrmRemDlg.UpdateButtons
   ├TfrmRemDlg.BackReminder
   │ └TfrmRemDlg.GetCurReminderList
   │   └TReminderDialog.GetIEN
   └TfrmRemDlg.NextReminder
     └TfrmRemDlg.GetCurReminderList...

Called-By Hierarchy


 TfrmRemDlg.ClinMaintDestroyed
TfrmRemDlg.btnClinMaintClick┘ 

Calls

Name Declaration Comments
TfrmRemDlg.UpdateButtons procedure UpdateButtons; -

Called-By

Name Declaration Comments
TfrmRemDlg.btnClinMaintClick procedure btnClinMaintClick(Sender: TObject); -


Source

1744  procedure TfrmRemDlg.ClinMaintDestroyed(Sender: TObject);
1745  begin
1746    if(assigned(FOldClinMaintOnDestroy)) then
1747      FOldClinMaintOnDestroy(Sender);
1748    FClinMainBox := nil;
1749    UpdateButtons;
1750  end;