FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 |
|
|
|