FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
tipo overwrite en un edit
Tengo un edit para 4 caracteres , p.ej: '0123', y quiero que si pongo el cursor en el primer caracter y escribo otro se sobreescriba.
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#2
|
||||
|
||||
procedure TForm1.DBEdit1Change(Sender: TObject);
begin Dbedit1.Text:=Copy(Dbedit1.text,1,4); end; Un Saludo. |
#3
|
||||
|
||||
Le he metido el codigo y sigue sin funcionar...
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#4
|
||||
|
||||
Y lo has puesto en el evento OnChange según te indico?
Un Saludo. |
#5
|
||||
|
||||
si, lo he puesto en el evento onchange del edit,,, y no me va
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#6
|
|||
|
|||
En el KeyPress de tu TEdit:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (sender as TCustomEdit).SelLength = 0 then (sender as TCustomEdit).SelLength := 1; end; Tambien sirve para TMemos, ya que tampoco tienen el control de Sobreescribir.
__________________
Saludos Javier |
#7
|
||||
|
||||
genial tio, gracias
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
|
|
|