DBGRID轮流显示

[dong12]

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

[xiaoyuer0851]

你到底是什么意思呢 ？
是不是一个窗体上有4个，然后你要逐个的显示，那么
里面的数据是不是都是从一个数据库中提取，
或者说是不是都是一个数据源传过来的呢 ？

如果实现，你可以通过timer 控件来控制显示时间

[dong12]

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

[yurenjf]

定义一个全局变量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;

[yurenjf]

补充:把Timer的Interval设为5000