向实现的功能，有2个FORM，想在点击FORM1后出现FORM2,FORM2是用来timer循环显示FORM1表中的某些字段内容。现在的问题是，FORM2上的没显示一条记录，就会留下阴影，好像总是没有刷新记录，我用了下面的代码也不行。大大们能否帮我看看

[code delphi]
procedure TForm2.Button1Click(Sender: TObject);
begin
timer1.Enabled:=false;
Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.brush.style:= bsclear;
form2.borderstyle:= bsnone
end;
procedure TForm2.FormPaint(Sender: TObject);
begin
Timer1.Enabled :=true;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
form2.Canvas.Refresh ;
if Form1.table1.eof then
begin
DBText1.Caption :=Form1.Table1.FieldByName('empno').AsString ;
label1.Caption :=Form1.Table1.FieldByName('firstname').AsString ;
Form1.table1.first;
label1.Refresh ;
label1.Invalidate ;
label1.Update ;
end
else begin
DBText1.Caption :=Form1.Table1.FieldByName('empno').AsString ;
label1.Caption :=Form1.Table1.FieldByName('firstname').AsString ;
Form1.table1.next;
label1.Refresh ;
label1.Invalidate ;
label1.Update ;

end;
end;
end.
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

Application.ProcessMessages;