Class TAddPhoneDlg (unit Addnmbr)

Inherits from

TForm

Constructors



Functions

procedure btnOKClick(Sender: TObject);

With

procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

With

procedure FormDestroy(Sender: TObject);


Properties

property NewRecord : Boolean

Public declarations

Events

Variables

btnCancel : TBitBtn;


btnOK : TBitBtn;


cboPhoneTypes : TComboBox;


edtExtension : TEdit;


edtNotes : TEdit;


edtPhoneNumber : TMaskEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


FNewRecord : Boolean;

Private declarations


Constructors


Functions


procedure btnOKClick(Sender: TObject);

With


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

With


procedure FormDestroy(Sender: TObject);


Properties


property NewRecord : Boolean

Public declarations


Events


Variables


btnCancel : TBitBtn;


btnOK : TBitBtn;


cboPhoneTypes : TComboBox;


edtExtension : TEdit;


edtNotes : TEdit;


edtPhoneNumber : TMaskEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


FNewRecord : Boolean;

Private declarations