source: cprs/branches/tmg-cprs/BDK32/Source/fRPCBErrMsg.pas@ 1802

Last change on this file since 1802 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.4 KB
RevLine 
[453]1{ **************************************************************
2 Package: XWB - Kernel RPCBroker
3 Date Created: Sept 18, 1997 (Version 1.1)
4 Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
5 Developers: Joel Ivey
6 Description: Error Display to permit application control over
7 bringing it to the front.
8 Current Release: Version 1.1 Patch 40 (January 7, 2005))
9*************************************************************** }
10
11unit fRPCBErrMsg;
12
13interface
14
15uses
16 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
17 StdCtrls;
18
19type
20 TfrmErrMsg = class(TForm)
21 Button1: TButton;
22 mmoErrorMessage: TMemo;
23 private
24 { Private declarations }
25 public
26 { Public declarations }
27 class procedure RPCBShowException(Sender: TObject; E: Exception);
28 end;
29
30procedure RPCBShowErrMsg(ErrorText: String);
31
32var
33 frmErrMsg: TfrmErrMsg;
34
35implementation
36
37{$R *.DFM}
38
39procedure RPCBShowErrMsg(ErrorText: String);
40begin
41 frmErrMsg := TfrmErrMsg.Create(Application);
42 frmErrMsg.mmoErrorMessage.Lines.Add(ErrorText);
43 frmErrMsg.ShowModal;
44 frmErrMsg.Free;
45end;
46
47class procedure TfrmErrMsg.RPCBShowException(Sender: TObject; E: Exception);
48begin
49 frmErrMsg := TfrmErrMsg.Create(Application);
50 frmErrMsg.mmoErrorMessage.Lines.Add(E.Message);
51 frmErrMsg.ShowModal;
52 frmErrMsg.Free;
53end;
54
55end.
Note: See TracBrowser for help on using the repository browser.