我想在程序界面上不断滚动显示一些信息，请问怎么做？(10分)

当程序运行时，在界面上不断显示信息，当显示的区域满时，以前的信息自动前翻。

在Delphi有一个VCL可以参考：system/OleContainer1可以参考，实现你的信息自动前翻需要
一些代码1

procedure TForm_main.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
label1.Caption := '哈哈';
label2.Caption := '呵呵';
label3.Caption := '哼哼';
label1.top := 230;
label1.Visible := False;
label2.top := 250;
label2.Visible := False;
label3.top := 280;
label3.Visible := False;
end;
procedure TForm_main.Timer1Timer(Sender: TObject);
begin
if label1.top > 280 then
label1.Visible := False
else label1.Visible := True;
if label2.top > 280 then
label2.Visible := False
else label2.Visible := True;
if label3.top > 280 then
label3.Visible := False
else label3.Visible := True;
label1.top := label1.top - 1;
label2.top := label2.top - 1;
label3.top := label3.top - 1;
if (label1.top < 80) then
begin
label1.Visible := False;
label1.top := 330;
end;
if (label2.top < 80) then
begin
label2.Visible := False;
label2.top := 330;
end;
if (label3.top < 80) then
begin
label3.Visible := False;
label3.top := 330;
end;
end;


试试，不过你的分太少了，呵呵

接受答案了.