Ir al contenido


Foto

Edit para correo


  • Por favor identifícate para responder
3 respuestas en este tema

#1 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 09 agosto 2010 - 09:28

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
  1. //Si se presiona la tecla espacio
  2.   if Key = ' ' then
  3.   begin
  4.       //En el caso del espacio
  5.       if pos('@', TEdit(Self).Text) = 0  then //No encuentra el aroba
  6.         TEdit(Self).Text := TEdit(Self).Text + '@'
  7.       else //ya esta escrito el arroba, el siguiente espacio es para el punto
  8.         TEdit(Self).Text := TEdit(Self).Text + '.';
  9.       Key := #0;
  10.       TEdit(Self).SelStart := Length(TEdit(Self).Text); //Se posiciona en el ultimo espacio
  11.   end;




Adjunto el componente, espero que les sirva.

  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.409 mensajes
  • LocationRepública Dominicana

Escrito 09 agosto 2010 - 09:51

Excelente aporte compadre (y)
  • 0

#3 Caral

Caral

    Advanced Member

  • Administrador
  • 4.255 mensajes
  • LocationCosta Rica

Escrito 09 agosto 2010 - 10:12

Hola
Muy bueno y muy practico amigo. (y)
Saludos
  • 0

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 09 agosto 2010 - 02:00

Gracias, se hace lo que se puede
  • 0