Class TForm1 (unit MapDemoU) |
Inherits from
TForm
we can use any exception
procedure Button1Click(Sender: TObject);
use the application debug mapper } { Alternatively use
DisplayException(Self, E);
to specify a different parent of type TObject.
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.
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.
procedure s1;
procedure s2;
procedure s3;
procedure s4;
procedure StackTraceHere;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
Label1 : TLabel;
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;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
Label1 : TLabel;