viernes, 17 de agosto de 2018

TMemo: evitar el enter.

Si bien una de sus propiedades es WantReturns y le podemos asignar False para evitar la línea nueva, a veces no funciona, al menos con la versión 1.6 de Lazarus y 3.0 de FreePascal usando el widget Gtk-2.
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