• Registered: 2015-12-25
  • Posts: 211

Topic: TextBox Mask for Emails

Hey guys, can anyone help me make a mask that allows me to use emails only? being  @ and a . after the @ mandatory for example...
many thanks

  • Registered: 2014-02-14
  • Posts: 10,294

Re: TextBox Mask for Emails

Mask works only when text have known length.

Dmitry.
  • Registered: 2015-12-25
  • Posts: 211

Re: TextBox Mask for Emails

can i have a script that detects if i have a "@" and a "." ?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: TextBox Mask for Emails

Yes, create OnClick event for button with action "Save Record"

procedure frmAbonent_bOK_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if (Pos('@', frmAbonent.edEmail.Text)=0) or (Pos('.', frmAbonent.edEmail.Text)=0) then
    begin
        ShowMessage('Invalid email address');
        frmAbonent.edEmail.SetFocus;
        Cancel := True;
    end;
end;
Dmitry.