Tema: Memo lines
Ver Mensaje Individual
  #5  
Antiguo 18-11-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por Caro Ver Mensaje
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
Responder Con Cita