您的位置:首页 > 其它

TRichEdit_控制TRichEdit组件滚动

2012-05-31 08:25 211 查看
//TRichEdit_控制TRichEdit组件滚动

procedure TForm1.BitBtn1Click(Sender: TObject); //滚至末端 没反应
begin
with RichEdit1 do
begin
SelStart := Length(Text);
Perform(em_scrollcaret, 0, 0);
end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);//向下滚动一行
begin
with RichEdit1 do
begin
Perform(em_scroll,sb_linedown, 0);
end;
end;

通过 Wiz 发布
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: