Procedure

TfrmFrame.AppException

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Comments

General Functions and Procedures

Visibility

Private

Owner

TfrmFrame

Declaration

procedure AppException(Sender: TObject; E: Exception);

Called-By Hierarchy


TfrmFrame.AppException
TfrmFrame.FormCreate┘ 

Called-By

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


Source

518   procedure TfrmFrame.AppException(Sender: TObject; E: Exception);
519   var
520     AnAddr: Pointer;
521     ErrMsg: string;
522   begin
523     Application.NormalizeTopMosts;
524     if (E is EIntError) then
525     begin
526       ErrMsg := E.Message + CRLF +
527                 'CreateProgress: ' + IntToStr(FCreateProgress) + CRLF +
528                 'RPC Info: ' + RPCLastCall;
529       if EExternal(E).ExceptionRecord <> nil then
530       begin
531         AnAddr := EExternal(E).ExceptionRecord^.ExceptionAddress;
532         ErrMsg := ErrMsg + CRLF + 'Address was ' + IntToStr(Integer(AnAddr));
533       end;
534       ShowMsg(ErrMsg);
535     end
536     else if (E is EBrokerError) then
537     begin
538       Application.ShowException(E);
539       FCreateProgress := FCP_FORMS;
540       Close;
541     end
542     else if (E is EOleException) then
543     begin
544       Application.ShowException(E);
545       FCreateProgress := FCP_FORMS;
546       Close;
547     end
548     else Application.ShowException(E);
549     Application.RestoreTopMosts;
550   end;