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