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;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2012/01/11/2318647.html