DELPHI技巧:改变RichEdit的游标位置计算机二级考试

文章作者 100test 发表时间 2009:06:15 07:13:54
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　计算机等级考试四级应用题解析汇总

　　2009年下半年全国计算机二级考试时间是2009年9月19日至23日。2009年下半年全国计算机二级考试报名时间会在考前两个月开始报名！更多优质资料尽在百考试题论坛 百考试题在线题库。

　　// 指定输入游标的位置
　　procedure SetCaret(RTF: TRichEdit. var Row, Col: word).
　　var
　　i, iStopLine, iSelStart: integer.
　　begin
　　if (RTF = nil) then Exit.
　　if Row = 0 then Row := 1.
　　if Col = 0 then Col := 1.
　　// 到第 Row 列, Col 行共几个字元
　　iStopLine := Row - 1.
　　iSelStart := 0.
　　for i := 0 to RTF.Lines.Count - 1 do
　　begin
　　if i = iStopLine then
　　begin
　　if Length(RTF.Lines[i]) >.= Col then
　　Inc(iSelStart, Col)
　　else
　　Inc(iSelStart, Length(RTF.Lines[i]) 2).
　　Break.
　　end.
　　Inc(iSelStart, Length(RTF.Lines[i]) 2).
　　end.
　　if iSelStart >. 0 then Dec(iSelStart).
　　// 以设定标记的方式指定游标位置
　　SendMessage(RTF.Handle, EM_SETSEL, iSelStart, iSelStart).
　　// 再次侦测游标位置
　　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.
　　procedure TForm1.Button1Click(Sender: TObject).
　　var
　　iRow, iCol: word.
　　begin
　　iRow := 17.
　　iCol := 3.
　　SetCaret(RichEdit1, iRow, iCol).
　　RichEdit1.SetFocus.
　　end

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　全国计算机等级考试历年真题及答案

　　2009年上半年全国计算机等级考试试题及答案