如何定位到RichEdit的某一行, 比如100行,并滚动到那里 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.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;procedure TForm1.Button1Click(Sender: TObject);begin SetLine(100); RichEdit1.SetFocus;end; 大家觉得做程序员到多大年龄就该转行了? 请求个SQL查询算法 如何放置控件 为什么单独打开一个 pas文件 会出错 这样的问题怎么解决呢? 如何用程序来得到 另一个单独打开ie窗口某个元素的句柄 Application.MessageBox的简单问题 参与者有分!欢迎加入“关于查询分类显示记录” 有谁用过mmtools2.0控件,如何解除IDE 的限制? 请问如何制作tip of the DAY 每日操作帮助? Aton救救我吧,我与到大麻烦了,关于IE的 linzhisong(無聊), firetoucher(风焱) 请进, 如何在服务应用程序中捕获鼠标消息?UP有分啊!!!!:))
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;
procedure TForm1.Button1Click(Sender: TObject);begin
SetLine(100);
RichEdit1.SetFocus;
end;