RichEdit(或Memo)的换行显示问题

Question

各位，我在窗体上加了个RichEdit组件，每次调入一个文本文件，遇到超过RichEdit窗口长度的句子就让它自动换行。我想问除了把RichEdit组件拉长以外，有没有更好的方法使文本文件不用自动换行？请指教，谢谢！

Answer 1

把WordWrap属性设为False，再把ScrollBars属性设为ssHorizontal，出现水平滚动条.

Answer 2

var
  Form1: TForm1;
  
  OldWordBreakProc : pointer;
  OldCBGetTextProc : Pointer;implementation{$R *.DFM}
function MyWordBreak(LPTSTR  : pchar;
                          ichCurrent : integer;
                          cch : integer;
                          code  : integer) : integer; stdcall;
 begin
   showmessage('word break');
   result :=  1;
 end;procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  OldWordBreakProc := Pointer(
                SendMessage(Memo1.Handle,
                 EM_SETWORDBREAKPROC,
                 0,
                 Longint(@MyWordBreak)));end;