Class TPhoneBookTable (unit PhoneGrid)

Inherits from

TForm

Constructors



Functions

procedure Close1Click(Sender: TObject);

self.

procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

This will close both windows.

procedure FormCreate(Sender: TObject);


procedure mnuViewFormClick(Sender: TObject);


procedure SetPhoneForm( Value: TForm );


Properties

property frmPhoneForm : TForm

Public declarations

Events

Variables

AddRecord1 : TMenuItem;


Close1 : TMenuItem;


Copy1 : TMenuItem;


CopyRecord1 : TMenuItem;


Cut1 : TMenuItem;


DBGrid1 : TDBGrid;


DeleteRecord1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


MainMenu1 : TMainMenu;


MarkRecord1 : TMenuItem;


mnuViewForm : TMenuItem;


MoveRecord1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


New1 : TMenuItem;


Open1 : TMenuItem;


Paste1 : TMenuItem;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


Table1 : TMenuItem;


Undo1 : TMenuItem;


View1 : TMenuItem;


FPhoneForm : TForm;

Private declarations


Constructors


Functions


procedure Close1Click(Sender: TObject);

self.Width := 0; self.Height := 0;


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

This will close both windows.


procedure FormCreate(Sender: TObject);


procedure mnuViewFormClick(Sender: TObject);


procedure SetPhoneForm( Value: TForm );


Properties


property frmPhoneForm : TForm

Public declarations


Events


Variables


AddRecord1 : TMenuItem;


Close1 : TMenuItem;


Copy1 : TMenuItem;


CopyRecord1 : TMenuItem;


Cut1 : TMenuItem;


DBGrid1 : TDBGrid;


DeleteRecord1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


MainMenu1 : TMainMenu;


MarkRecord1 : TMenuItem;


mnuViewForm : TMenuItem;


MoveRecord1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


New1 : TMenuItem;


Open1 : TMenuItem;


Paste1 : TMenuItem;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


Table1 : TMenuItem;


Undo1 : TMenuItem;


View1 : TMenuItem;


FPhoneForm : TForm;

Private declarations