Procedure

TfrmFrame.AppActivated

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Private

Owner

TfrmFrame

Declaration

procedure AppActivated(Sender: TObject);

Calls Hierarchy


TfrmFrame.AppActivated
 └SpeakTabAndPatient
   └GetTabText

Called-By Hierarchy


TfrmFrame.AppActivated
TfrmFrame.FormCreate┘ 

Calls

Name Declaration Comments
SpeakTabAndPatient procedure SpeakTabAndPatient; -

Called-By

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


Source

3338  procedure TfrmFrame.AppActivated(Sender: TObject);
3339  begin
3340    if assigned(FOldActivate) then
3341      FOldActivate(Sender);
3342    SetActiveWindow(Application.Handle);
3343    if ScreenReaderSystemActive and assigned(Patient) and (Patient.Name <> '') and (Patient.Status <> '') then
3344        SpeakTabAndPatient;
3345  end;