设置RichEdit中光标位置

   
procedure SetCaret(RTF: TRichEdit; var row, col: word);

var

i,iStopLine,iSelStart:integer;

Strings:TStrings;

begin

if (RTF=nil) then exit;

Strings:=RTF.Lines;

if Row=0 then Row:=1;

if Col=0 then Col:=1;

//到第Row列，Col行共几个字元

iStopLine:=Row-1;

iSelStart:=0;

for i:=0 to Strings.Count-1 do

begin

if i=iStopLine then

begin

if Length(Strings[i])>Col then

Inc(iSelStart,Col)

else

Inc(iSelStart,Length(Strings[i])+2);

Break;

end;

Inc(iSelStart,Length(Strings[i])+2);

end;

if iSelStart>0 then Dec(iSelStart);

//以设定标记的方式指定游标位置

RTF.SelStart :=iSelStart;// + Length(RTF.Lines[i])+2;

//再次侦测游标位置

Row:=SendMessage(RTF.Handle,EM_LINEFROMCHAR,RTF.SelStart,0);

Col:=RTF.SelStart-SendMessage(RTF.Handle,EM_LINEINDEX,Row,0);

//卷到游标所在位置

SendMessage(RTF.Handle,EM_SCROLLCARET,0,0);

end;