dbgrideh自适应列宽(自己经验)

 

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;