![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
|||
|
|||
en mi paleta de componentes no tengo un TextBox quiza sea de una version posterior a la mia, pero de todas formas la idea basi ca es la siguiente
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Key = #13 Then //si pulsamos ENTER Begin Key := #0; //quitamos ENTER de la cadena Memo1.Lines.Add(Edit1.Text); //añadimos el contenido al memo Edit1.Text:=''; //lo vaciamos Edit1.SetFocus; //y continuamos con el foco para mas datos end; end; con algo como esto creo que te servira |
|
|
![]() |
|