Tema: escribir en un edit
Ver Mensaje Individual
  #2  
Antiguo 18-07-2007
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita