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
|