| Class TMainForm (unit mainwin) |
TForm
| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure New2Click(Sender: TObject);
procedure Subclasser1PreProcessMsg(Sender: TObject; var msg: TMessage;
var bContinue: Boolean);| Properties |
| Events |
| Variables |
About1 : TMenuItem;
Bevel1 : TBevel;
Close1 : TMenuItem;
Exit1 : TMenuItem;
File2 : TMenuItem;
Help1 : TMenuItem;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
New2 : TMenuItem;
Subclasser1 : TSubclasser;| Constructors |
| Functions |
procedure About1Click(Sender: TObject);-------------------------------------------------------------------------------------//
procedure Close1Click(Sender: TObject);-------------------------------------------------------------------------------------//
procedure Exit1Click(Sender: TObject);-------------------------------------------------------------------------------------//
procedure FormCreate(Sender: TObject);-------------------------------------------------------------------------------------//
procedure New2Click(Sender: TObject);-------------------------------------------------------------------------------------// I think below functions are rather self explanatory -------------------------------------------------------------------------------------//
procedure Subclasser1PreProcessMsg(Sender: TObject; var msg: TMessage;
var bContinue: Boolean);-------------------------------------------------------------------------------------//
| Properties |
| Events |
| Variables |
About1 : TMenuItem;
Bevel1 : TBevel;Subclasser1: TSubclasser;
Close1 : TMenuItem;
Exit1 : TMenuItem;
File2 : TMenuItem;
Help1 : TMenuItem;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
New2 : TMenuItem;
Subclasser1 : TSubclasser;