Procedure

TfrmPage.FocusFirstControl

Module

fPage

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmPage

Declaration

procedure FocusFirstControl;

Calls Hierarchy


TfrmPage.FocusFirstControl
 └TimedOut

Called-By Hierarchy


       TfrmPage.FocusFirstControl
           TfrmFrame.WMSetFocus┤ 
         TfrmFrame.FormActivate┤ 
             TfrmFrame.ViewInfo┤ 
          TfrmDCSumm.ViewInfo┤ │ 
        TfrmConsults.ViewInfo┤ │ 
TfrmFrame.pnlRemindersMouseUp┤ │ 
 TfrmFrame.RemindersChanged┘ │ │ 
     TfrmFrame.FormCreate┘   │ │ 
       TfrmFrame.pnlCIRNClick┤ │ 
 TfrmFrame.pnlVistaWebClick┤ │ │ 
      TfrmFrame.FormKeyDown┘ │ │ 
    TfrmFrame.pnlPatientClick┤ │ 
      TfrmFrame.pnlVisitClick┤ │ 
TfrmFrame.pnlPrimaryCareClick┤ │ 
  TfrmFrame.pnlRemindersClick┤ │ 
   TfrmFrame.pnlPostingsClick┤ │ 
       TfrmFrame.pnlFlagClick┤ │ 
         TfrmFrame.laMHVClick┤ │ 
        TfrmFrame.laVAA2Click┤ │ 
          TfrmOrders.ViewInfo┤ │ 
            TfrmMeds.ViewInfo┤ │ 
         TfrmSurgery.ViewInfo┤ │ 
           TfrmNotes.ViewInfo┤ │ 
        TfrmProblems.ViewInfo┘ │ 
          TfrmCover.DisplayPage┘ 
     TfrmCover.CoverItemClick┘   

Calls

Name Declaration Comments
TimedOut function TimedOut: boolean; -

Called-By

Name Declaration Comments
TfrmCover.DisplayPage procedure DisplayPage; override; -
TfrmFrame.FormActivate procedure FormActivate(Sender: TObject); -
TfrmFrame.ViewInfo procedure ViewInfo(Sender: TObject); -
TfrmFrame.WMSetFocus procedure WMSetFocus(var Message: TMessage); message WM_SETFOCUS; -


Source

150   procedure TfrmPage.FocusFirstControl;
151   var
152     NextControl: TWinControl;
153   begin
154     if Assigned(frmFrame) and frmFrame.Enabled and frmFrame.Visible and not uInit.TimedOut then begin
155       NextControl := FindNextControl(nil, True, True, False);
156       if NextControl <> nil then
157         NextControl.SetFocus;
158     end;
159   end;