Class TForm1 (unit MapDemoU)

Inherits from

TForm

we can use any exception

Constructors



Functions

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;


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;