Class TMainForm (unit mainwin) |
Inherits from
TForm
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);
-------------------------------------------------------------------------------------//
About1 : TMenuItem;
Bevel1 : TBevel;
Subclasser1: TSubclasser;
Close1 : TMenuItem;
Exit1 : TMenuItem;
File2 : TMenuItem;
Help1 : TMenuItem;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
New2 : TMenuItem;
Subclasser1 : TSubclasser;
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);
-------------------------------------------------------------------------------------//
About1 : TMenuItem;
Bevel1 : TBevel;
Subclasser1: TSubclasser;
Close1 : TMenuItem;
Exit1 : TMenuItem;
File2 : TMenuItem;
Help1 : TMenuItem;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
New2 : TMenuItem;
Subclasser1 : TSubclasser;