Procedure

TfrmPtSelMsg.FormCreate

Module

fPtSelMsg

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSelMsg

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmPtSelMsg.FormCreate
 ├TfrmPtSelMsg.ActiveFormChanged
 └TfrmPtSelMsg.TabChanged
   └TfrmPtSelMsg.ClearEvents

Calls

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


Source

94    procedure TfrmPtSelMsg.FormCreate(Sender: TObject);
95    begin
96      FOldActiveFormChanged := Screen.OnActiveFormChange;
97      Screen.OnActiveFormChange := ActiveFormChanged;
98      FOldTabChanged := frmFrame.OnTabChanged;
99      frmFrame.OnTabChanged := TabChanged;
100     FEventsActive := TRUE;
101   end;