Procedure

TfrmTemplateDialog.InitScreenReaderSetup

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

procedure InitScreenReaderSetup;

Called-By Hierarchy


TfrmTemplateDialog.InitScreenReaderSetup
          TfrmTemplateDialog.FormPaint┤ 
           TfrmTemplateDialog.FormShow┘ 

Called-By

Name Declaration Comments
TfrmTemplateDialog.FormPaint procedure FormPaint(Sender: TObject); -
TfrmTemplateDialog.FormShow procedure FormShow(Sender: TObject); -


Source

410   procedure TfrmTemplateDialog.InitScreenReaderSetup;
411   var
412     ctrl: TWinControl;
413     list: TList;
414   begin
415     if ScreenReaderSystemActive then
416     begin
417       list := TList.Create;
418       try
419         sbMain.GetTabOrderList(list);
420         if list.Count > 0 then
421         begin
422           ctrl := TWinControl(list[0]);
423           PostMessage(Handle, UM_MISC, WParam(ctrl), 0);
424         end;
425       finally
426         list.free;
427       end;
428     end;
429   end;