|
|
 |
 |
|
Paypal | |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#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.
__________________
Saludos Javier 
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
 |
|
Modo Hilado