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