| Class TAddEMailAddress (unit Addemail) |
TForm
| Constructors |
| Functions |
procedure btnCancelClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormActivate(Sender: TObject);| Properties |
| Events |
| Variables |
btnCancel : TBitBtn;
btnOK : TBitBtn;
edtEMailAddress : TEdit;
Label1 : TLabel;
NewRecord : Boolean;| 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