| Class TRxErrorDialog (unit ExcptDlg) |
TForm
| Constructors |
| Functions |
procedure DetailsBtnClick(Sender: TObject);
procedure ErrorInfo(var LogicalAddress: Pointer; var ModuleName: string);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ShowException(Sender: TObject; E: Exception);
procedure GetErrorMsg(var Msg: string);
procedure SetShowDetails(Value: Boolean);
procedure ShowError;| Properties |
| Events |
event OnErrorMsg : TErrorEvent| Variables |
AddrLabel : TRxLabel;
BasicPanel : TPanel;
BottomPanel : TPanel;
ButtonPanel : TPanel;
DetailsBtn : TButton;
DetailsPanel : TPanel;
ErrorAddress : TEdit;
ErrorText : TLabel;
ErrorType : TEdit;
IconImage : TImage;
IconPanel : TPanel;
MessageText : TMemo;
OKBtn : TButton;
RightPanel : TPanel;
TopPanel : TPanel;
TypeLabel : TRxLabel;
Details : Boolean;
DetailsHeight : Integer;
ExceptObj : Exception;
FOnErrorMsg : TErrorEvent;
FPrevOnException : TExceptionEvent;| Constructors |
| Functions |
procedure DetailsBtnClick(Sender: TObject);
procedure ErrorInfo(var LogicalAddress: Pointer; var ModuleName: string);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);Set exception handler
procedure FormShow(Sender: TObject);
procedure ShowException(Sender: TObject; E: Exception);TRxErrorDialog
procedure GetErrorMsg(var Msg: string);
procedure SetShowDetails(Value: Boolean);
procedure ShowError;| Properties |
| Events |
event OnErrorMsg : TErrorEvent| Variables |
AddrLabel : TRxLabel;
BasicPanel : TPanel;
BottomPanel : TPanel;
ButtonPanel : TPanel;
DetailsBtn : TButton;
DetailsPanel : TPanel;
ErrorAddress : TEdit;
ErrorText : TLabel;
ErrorType : TEdit;
IconImage : TImage;
IconPanel : TPanel;
MessageText : TMemo;
OKBtn : TButton;
RightPanel : TPanel;
TopPanel : TPanel;
TypeLabel : TRxLabel;
Details : Boolean;
DetailsHeight : Integer;
ExceptObj : Exception;
FOnErrorMsg : TErrorEvent;
FPrevOnException : TExceptionEvent;