我也不知道,但可以用下面的方法成列移动
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
TDBGrid(Sender).Columns[0].Visible := not TDBGrid(Sender).Columns[0].Visible;
TDBGrid(Sender).Columns[0].Visible := not TDBGrid(Sender).Columns[0].Visible;
end;
不要问我为什么,我是实践得的,我也想知道!
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
TDBGrid(Sender).Columns[0].Visible := not TDBGrid(Sender).Columns[0].Visible;
TDBGrid(Sender).Columns[0].Visible := not TDBGrid(Sender).Columns[0].Visible;
end;
不要问我为什么,我是实践得的,我也想知道!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货