13,825
社区成员
发帖
与我相关
我的任务
分享关于TRichEdit的问题，在线等待，谢了！
假设TRichEdit控件已经RichEdit1->Lines->LoadFromFile("a.txt")，
a.txt文件包含了2000行的文本。请问如何用代码实现：
将第1000行文本显示在TRichEdit控件的窗体的最底下一行？
a.txt文件包含了2000行的文本。请问如何用代码实现：
将第1000行文本显示在TRichEdit控件的窗体的最底下一行？
...全文
请发表友善的回复…
发表回复
0101010101010101010 2002-11-05
- 打赏
- 举报
hi, thanks.
Libran 2002-11-04
- 打赏
- 举报
SendMessage(RichEdit1->Handle, WM_LBUTTONDOWN, MK_LBUTTON,
(RichEdit1->ClientHeight<<16)+1);
SendMessage(RichEdit1->Handle, EM_LINESCROLL, 0,
1000-(RichEdit1->CaretPos.y+1));
(RichEdit1->ClientHeight<<16)+1);
SendMessage(RichEdit1->Handle, EM_LINESCROLL, 0,
1000-(RichEdit1->CaretPos.y+1));
xiaodongisme 2002-11-04
- 打赏
- 举报
int Row;
Row=Edit1->Text.ToIntDef(0);
RichEdit1->SelStart=SendMessage(RichEdit1->Handle,EM_LINEINDEX,Row,0);
RichEdit1->SelLength=RichEdit1->Lines->Strings[Row].Length();
AnsiString append=RichEdit1->SelText;
RichEdit1->Lines->Delete(Row);
RichEdit1->Lines->Append(append);
Row=Edit1->Text.ToIntDef(0);
RichEdit1->SelStart=SendMessage(RichEdit1->Handle,EM_LINEINDEX,Row,0);
RichEdit1->SelLength=RichEdit1->Lines->Strings[Row].Length();
AnsiString append=RichEdit1->SelText;
RichEdit1->Lines->Delete(Row);
RichEdit1->Lines->Append(append);
