Function

AllowTimeout

Module

fTimeout

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Declaration

function AllowTimeout: Boolean;

Calls Hierarchy


AllowTimeout
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                       AllowTimeout
TCPRSTimeoutTimer.timTimeoutTimer┘ 
                    InitTimeOut┘   
         TfrmFrame.FormCreate┘     

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
TCPRSTimeoutTimer.timTimeoutTimer procedure timTimeoutTimer(Sender: TObject); -


Source

44    function AllowTimeout: Boolean;
45    var
46      frmTimeout: TfrmTimeout;
47    begin
48      frmTimeout := TfrmTimeout.Create(Application);
49      try
50        ResizeFormToFont(TForm(frmTimeout));
51        frmTimeout.ShowModal;
52        Result := not frmTimeout.FContinue;
53      finally
54        frmTimeout.Release;
55      end;
56    end;