Class TAddEMailAddress (unit Addemail)

Inherits from

TForm

Constructors



Functions

procedure btnCancelClick(Sender: TObject);

Make sure the record is unique.

procedure btnOKClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


Properties

Events

Variables

btnCancel : TBitBtn;


btnOK : TBitBtn;


edtEMailAddress : TEdit;


Label1 : TLabel;


NewRecord : Boolean;

Public declarations


Constructors


Functions


procedure btnCancelClick(Sender: TObject);

Make sure the record is unique.


procedure btnOKClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


Properties


Events


Variables


btnCancel : TBitBtn;


btnOK : TBitBtn;


edtEMailAddress : TEdit;


Label1 : TLabel;


NewRecord : Boolean;

Public declarations