TRichEdit_控制TRichEdit组件滚动

//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 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/31/2527419.html