| Class TForm1 (unit MapDemoU) |
TForm
we can use any exception
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MyExceptionHandler(Sender: TObject; E: Exception);Alternatively use Application.
procedure s1;
procedure s2;
procedure s3;
procedure s4;
procedure StackTraceHere;| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
Label1 : TLabel;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);use the application debug mapper } { Alternatively use DisplayException(Self, E); to specify a different parent of type TObject. If the parent has a property Handle, and the property type is of type THandle, then that TWinControl will be used as the parent, otherwise the desktop is the parent. } {$IFDEF Win32
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);Note: this is the very complicated way of getting something onto the screen The code below is equivalent to DebugMapper.Exception := E; MessageDlg( DebugMapper.PrettyOutput, mtInformation, [mbOK], 0);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);pass on to application object
procedure FormCreate(Sender: TObject);
procedure MyExceptionHandler(Sender: TObject; E: Exception);Public declarations
Alternatively use Application.OnException := FormDebugMapper.AppException which takes care of virtually everything
procedure s1;
procedure s2;
procedure s3;
procedure s4;
procedure StackTraceHere;| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
Label1 : TLabel;