DBGRID轮流显示

Question

请问各位高手，我现在要实现DBGRID轮流显示，也就是每隔5秒钟显示一个DBGRID，我现在有四个DBGRID 怎样写呀

Answer 1

你到底是什么意思呢 ？
是不是一个窗体上有4个，然后你要逐个的显示，那么
里面的数据是不是都是从一个数据库中提取，
或者说是不是都是一个数据源传过来的呢 ？如果实现，你可以通过timer 控件来控制显示时间

Answer 2

你说这些我知道呀，用TIMER事件里写怎样才能一个接立着一个显示呀

Answer 3

定义一个全局变量IsShow:array [0..3] of boolean;
IsShow[0]初始化成true,其他为false;
procedure TForm1.Timer1Timer(Sender: TObject);
 var i: integer;
begin
  for i:= 0 to 3 do 
  begin
    if IsShow[i] then 
    begin
      dbgrid[(i+3) mod 4].Visiable := false;
      dbgrid[i].Visiable := true;
      IsShow[i]:= false;
      IsShow[(i+1) mod 4]:= false;
    end;
  end;
end;