tipo overwrite en un edit

superhopi · #1 21-05-2003

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 · #2 21-05-2003

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

Un Saludo.

superhopi · #3 23-05-2003

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

marcoszorrilla · #4 23-05-2003

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

Un Saludo.

superhopi · #5 23-05-2003

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

jceluce · #6 23-05-2003

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 · #7 23-05-2003

genial tio, gracias