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

[TomyGuan]

如題：

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

[flashtong]

消息

[lihuasoft]

-_-! 不要点名....我不是高手。此题不会。至少是不懂楼主意思。

以后请不要点名，以免别人无法参与回答。谢谢合作。

[TomyGuan]

就像網頁那樣，雙擊后就慢慢的下拉。

怎樣實現呢？

[lihuasoft]

从网上找了类似的代码然后给你改的：

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;

[oushengfen]

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