Foros Club Delphi - escribir en un edit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - escribir en un edit (https://www.clubdelphi.com/foros/showthread.php?t=45908)

principiante22

18-07-2007 01:42:10

escribir en un edit

Saludos, como puedo hacer que cuando el usuario este escribiendo en un edit despues de escribir 4 caracteres se agregue el signo -, se que es en el OnKeyPress del edit pero no se me ocurren los codigos.

Caro	18-07-2007 02:13:01

Hola, pon este codigo en el evento keypress de tu edit.

Código Delphi [-] if (length(Edit1.Text)=4) and (key<>#8) then
 begin
  Edit1.Text:=Edit1.Text+'-';
  Edit1.SelStart:=length(Edit1.Text);
 end;

Saluditos

principiante22

18-07-2007 02:31:39

Gracias por la ayuda ;)

La franja horaria es GMT +2. Ahora son las 08:17:51.