//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;
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;