3 respuestas en este tema

[eduarcol]

Hola a todos.

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.

[enecumene]

Excelente aporte compadre

[Caral]

Hola
Muy bueno y muy practico amigo.
Saludos

[eduarcol]

Gracias, se hace lo que se puede