Memo lines

[cmfab]

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

[Casimiro Noteví]

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?

[*Caro*]

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

[*Caro*]

Hola Casimiro

Empezado por Casimiro Notevi

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

Yo también opino lo mismo .

Saluditos

[roman]

Empezado por Caro

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

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

// Saludos

[ecfisa]

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.

[*Caro*]

Empezado por roman

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

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

Saluditos

[cmfab]

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

saludos