procedure TfrmMain.Button19Click(Sender: TObject);
var
  I: Integer;
begin
  for I:=0 to WeiTopTradeShow_dbgeh.Columns.Count-1 do
  begin
    WeiTopTradeShow_dbgeh.Columns[I].OptimizeWidth;
  end;
end;
posted on 2012-01-11 00:07  del88  阅读(11)  评论(0编辑  收藏  举报