frm3_qry1.AfterOpen //自动适应表头或内容列

frm3_qry1.AfterOpen//添加如下代码
//自动适应表头或内容列
var
  i: Integer;
begin
  inherited;
  for i := 0 to DBGridEh1.Columns.Count - 1 do
  begin
    DBGridEh1.Columns[i].OptimizeWidth;
    DBGridEh1.Columns[i].Title.TitleButton := True;
  end;
  Screen.Cursor := crDefault;
end;