怎樣讓richEdit的下拉條，自動的慢慢向下拉。

Question

如題：TO：lihuasoft(学习低调做人)，又要麻煩你了。剛開始學，別見怪。

Answer 1

从网上找了类似的代码然后给你改的：var
  Row : integer;procedure TForm1.Button1Click(Sender: TObject);
begin
  Row := 0;
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  RichEdit1.SetFocus;
  RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, row, 0);
  RichEdit1.SelLength := 0;
  SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0);
  Inc(Row);
  if Row > RichEdit1.Lines.Count-1 then Timer1.Enabled := false;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

Answer 2

我们要学习(lihuasoft(学习低调做人) ( ) 信誉：100    Blog )
的做人风格，呵呵