A continuación les dejo algo sencillo, un edit que esta condicionado para ingresar los correos electrónicos, su funcionamiento es el siguiente: Al primer espacio si no esta el @ lo coloca, de resto cada vez que se deje un espacio lo cambia por un punto.
Aquí el código:
delphi
//Si se presiona la tecla espacio if Key = ' ' then begin //En el caso del espacio if pos('@', TEdit(Self).Text) = 0 then //No encuentra el aroba TEdit(Self).Text := TEdit(Self).Text + '@' else //ya esta escrito el arroba, el siguiente espacio es para el punto TEdit(Self).Text := TEdit(Self).Text + '.'; Key := #0; TEdit(Self).SelStart := Length(TEdit(Self).Text); //Se posiciona en el ultimo espacio end;
Adjunto el componente, espero que les sirva.