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;
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;