tipo overwrite en un edit

[superhopi]

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.

[marcoszorrilla]

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
Dbedit1.Text:=Copy(Dbedit1.text,1,4);
end;


Un Saludo.

[superhopi]

Le he metido el codigo y sigue sin funcionar...

[marcoszorrilla]

Y lo has puesto en el evento OnChange según te indico?

Un Saludo.

[superhopi]

si, lo he puesto en el evento onchange del edit,,, y no me va

[jceluce]

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.

[superhopi]

genial tio, gracias