Procedure

TfrmPtSelMsg.ActiveFormChanged

Module

fPtSelMsg

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmPtSelMsg

Declaration

procedure ActiveFormChanged(Sender: TObject);

Called-By Hierarchy


TfrmPtSelMsg.ActiveFormChanged
     TfrmPtSelMsg.FormCreate┘ 

Called-By

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


Source

109   procedure TfrmPtSelMsg.ActiveFormChanged(Sender: TObject);
110   begin
111     if assigned(FOldActiveFormChanged) then
112       FOldActiveFormChanged(Sender);
113     if (not FChanging) and (Screen.ActiveForm <> Self) and
114        (not (csDestroying in Self.ComponentState)) then
115     begin
116       FChanging := TRUE;
117       try
118         SetFocus;
119       finally
120         FChanging := FALSE;
121       end;
122     end;
123   end;