No obstante la solución es muy simple utilizando el evento OnKeyPress de TMemo:
procedure TForm1.mmDetalleKeyPress(Sender: TObject; var Key: char);
begin
if (Key in [#13,#10]) then Key:=#0;
end;
mmDetalle es la variable del tipo TMemo.
Si la tecla presionada es Enter se anula.
No hay comentarios:
Publicar un comentario