16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Kshape 2005-07-07
- 打赏
- 举报
http://search.csdn.net/Expert/topic/1965/1965621.xml?temp=.7884638
hthunter 2005-07-07
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
iLine: Integer;
begin
iLine := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
Self.Caption := '当前行：' + IntToStr(iLine + 1);
RichEdit1.Lines[iLine] := '添加内容' + RichEdit1.Lines[iLine]; //往行首插入内容
end;
var
iLine: Integer;
begin
iLine := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
Self.Caption := '当前行：' + IntToStr(iLine + 1);
RichEdit1.Lines[iLine] := '添加内容' + RichEdit1.Lines[iLine]; //往行首插入内容
end;
