Procedure

TfrmPtSelMsg.ClearEvents

Module

fPtSelMsg

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmPtSelMsg

Declaration

procedure ClearEvents;

Called-By Hierarchy


   TfrmPtSelMsg.ClearEvents
 TfrmPtSelMsg.FormDestroy┤ 
  TfrmPtSelMsg.TabChanged┘ 
TfrmPtSelMsg.FormCreate┘   

Called-By

Name Declaration Comments
TfrmPtSelMsg.FormDestroy procedure FormDestroy(Sender: TObject); -
TfrmPtSelMsg.TabChanged procedure TabChanged(Sender: TObject); -


Source

125   procedure TfrmPtSelMsg.ClearEvents;
126   begin
127     if FEventsActive then
128     begin
129       Screen.OnActiveFormChange := FOldActiveFormChanged;
130       frmFrame.OnTabChanged := FOldTabChanged;
131       FEventsActive := FALSE;
132     end;
133   end;