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.

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


Un Saludo.

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

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

Un Saludo.

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

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.

genial tio, gracias