как отключть Enter в RichEdit1

[aesoem]

Сдравствуйте, я реализовал отправку сожержимого RichEdit1 после нажатия на интер, после чего я отчищаю его содержимое... Но вот беда, так как была нажата кнопка интер появляется лишняя строка в RichEdit1... как запретить добавлять ее ? удалить ее не получается

[Пепел Феникса]

а события OnKey****
на что?
обнуляйте код(или символ)

[aesoem]

Как?

key:=0;

непомогает(, или я нитак сообразил

[Пепел Феникса]

есть три события OnKeyDown, OnKeyUp, OnKeyPress
вы похоже обнуляете в первом...попробуйте еще и третий

[aesoem]

procedure TForm1.sMemo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=$0D then
key:=0;
end;

procedure TForm1.sMemo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=$0D then
key:=0;
end;

а как press обнулить там char какойто, это массив?

[Пепел Феникса]

не знать что такое чар это грех
это одиночный символ(одна буква)
по размеру эквивалентен байту
обнуление это Key:=#0;
на энтере помоему #13 висит

[aesoem]

)))буду знать)