Class TMainForm (unit mainwin)

Inherits from

TForm

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;



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;