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 |
|
|
|