置RichEdit只能入一行料，怎么做？
如：即不能回行，只可以入一行。
！

[解决办法]
这样行不行：

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) or (Key = #10) then Key := #0;
end;
[解决办法]
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then key:= #0;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if richedit1.Lines.Count> 1 then
begin
keybd_event(VK_BACK, MapVirtualKey(VK_BACK, 0), 0, 0);
keybd_event(VK_BACK, MapVirtualKey(VK_BACK, 0), KEYEVENTF_KEYUP, 0);
end;
end;
[解决办法]
用edit得了
[解决办法]
keypress要把form的key preview属性改成true

[解决办法]
直接 设置 WantReturns 属性为 false 就行了 ，什么代码都不用写