Memo lines
 

Hola a todos, tengo el siguiene problemilla. coloco un tmemo en un formulario donde los usuarios a través de la tecla ENTER van a ir introduciendo cierta cantidad de lineas. Como puedo hacer para que no escriban lineas vacías. osea que no puedan presionar dos veces al enter creando una linea en blanco.

Gracias a todos por su interés

Recuerda poner títulos descriptivos, ¿leiste nuestra guia de estilo?, gracias por tu colaboración.

Explica un poco más tu pregunta, ¿cómo insertan las líneas?, ¿en el mismo memo o en un edit que luego pasas los datos al memo?

Hola cmfab, puedes utilizar el evento OnKeyPress para capturar la tecla Enter:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key=#13) then //si es enter
  begin
   if (KeyAnt=Key) then
    key:= #0
   else
    KeyAnt := Key;
  end
 else //sino ponemos cualquier valor
  KeyAnt := 'A';
end;

donde KeyAnt es una variable global de tipo Char.

Saluditos

Hola Casimiro :)

Yo también opino lo mismo ;).

Saluditos

Y, ¿qué pasa si escribo ENTER - SPACE - BKSPACE - ENTER?

// Saludos

Hola.

Otra forma que se me ocurre es:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  with (Sender as TMemo) do
    if (Key = #13) and (Lines[Perform(EM_LINEFROMCHAR,SelStart,0)] = '') then
    Key:= #0;
end;

Saludos.

Hola Roman, en ese caso mejor utilizar la solución de ecfisa ;).

Saluditos

Gracias por su respuestas las analizaré cuanto antes y tambien estoy de acuero con el señalamiento del uso de títulos descriptivos

saludos