如何把光标定位到richedit的指定行?(100分)

大

大富婆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #1

如何把光标定位到richedit的指定行?(指定行号)

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #2

呵呵，富婆就是有钱：）你搜一下以前的问题，有大把的答案。
我还是贴出来吧，免得你找着累：）
procedure TFrom1.SetLine(LineNum: Integer);
var
ScrollLn: Integer;
begin
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, LineNum, 0);
ScrollLn := LineNum - RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
RichEdit1.Perform(EM_LINESCROLL, 0, ScrollLn);
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #3

来晚了！
唉！ [][][]

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #4

我也是：（

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #5

//光标定位到richedit的指定行
Procedure TForm1.SetCursorPos(Num: Integer);
var
j: Integer;
str: string;
begin
Richedit1.SetFocus;
str := Richedit1.Lines[Num - 1];
j := Richedit1.FindText(str, 0, length(richedit1.text), [stMatchCase]);
Richedit1.selstart := j;
PostMessage(Richedit1.Handle, EM_SCROLLCARET, 0, 0);
end;

 

大

大富婆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #6

linsb, 如果那里有两行一样的呢?,,,,不好意思,只能少给分了

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #7

：大富婆
你的要求是：如何把光标定位到richedit的指定行
beta的应作适当修改！