richedit的列问题（在线等待）

Question

如何能使richedit只使用80列，比如我输入字符时，此行的字符超过80列自动换到下一行

Answer 1

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i,j,k:integer;
begin
    i:=richedit1.SelStart;
    j:=0;
    for k:=0 to richedit1.lines.count-1 do
    begin
      if j>i then
        Break;
      j:=j+length(richedit1.lines[k])+2;
    end;
    if k>0 then
    begin
      if length(richedit1.lines[k-1])=10 then
      begin
//        sendmessage(richedit1.handle,WM_CHAR,10,0);
        sendmessage(richedit1.handle,WM_CHAR,13,0);
      end;
    end
    else
      if length(richedit1.lines[0])=10 then
      begin
//        sendmessage(richedit1.handle,WM_CHAR,10,0);
        sendmessage(richedit1.handle,WM_CHAR,13,0);
      end;
end;

Answer 2

我调试好的一个例子(源码）：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Editor: TRichEdit;
    Edit1: TEdit;
    function UpdateCursorPos:integer;
    procedure EditorKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
  
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses RichEdit;resourcestring
  sColRowInfo = '%3d';
{$R *.dfm}function Tform1.UpdateCursorPos:integer;
var
  CharPos: TPoint;
begin
CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0,
    Editor.SelStart);
  CharPos.X := (Editor.SelStart -
    SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y);
  Inc(CharPos.X);
  result:= strtoint(Format(sColRowInfo,[CharPos.X]));
end;
procedure TForm1.EditorKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if updatecursorpos>10 then
sendmessage(Editor.handle,WM_CHAR,13,0)
else
//用于显示所在地方
edit1.Text:=inttostr(UpdateCursorPos);
end;
{没考虑插入时的换行}
end.

Answer 3

： liujidong(天天学习)你的这种方法执行速度太慢，且在输入词组时有问题。 jacket008(夜猫) 的方法我没试。我在此有段代码，刚写的，试过没问题，只是没有考虑粘贴来的文字，楼主自己去完善吧！！var
  Form1: TForm1;   const WORD_WIDE=10;//文本的宽度，在此设为10字换行。implementation{$R *.dfm}procedure TForm1.RichEdit1Change(Sender: TObject);
var i,j,K:longint;
begin
   i:= SendMessage(richedit1.Handle,EM_LINEFROMCHAR,richedit1.SelStart,0);
   j:=SendMessage(richedit1.Handle,EM_LINEINDEX,i,0);
   k:=length(richedit1.Lines[i]);
   if k-WORD_WIDE>=0 THEN
    sendmessage(richedit1.handle,WM_CHAR,13,0);end;
比楼上的简单多了吧！！！