interface
THackDBGridEH = class(TCustomdbgrideh)
end;
procedure OptimizeGrid(AGrid: TCustomDbGridEh);
implementation
procedure OptimizeGrid(AGrid: TCustomDbGridEh);
var
i: integer;
begin
// 優化GRID的寬度
for i := 0 to TDBGridEh(AGrid).Columns.count - 1 do
THackDBGridEH(AGrid).OptimizeSelectedColsWidth(TDBGridEh(AGrid).Columns[i]);
end;
=========================================================
一直在找最好的根据DBGridEH(或者DBGrid)的内容和标题栏设置自适应列宽的方法，一直没有太好的。今天从园地上发现了源码：地址如下，非常好用。与大家分享：
http://www.delphifans.com/SoftView/SoftView_2019.html
代码哪下：
//需要定义这个类，才能使用OptimizeSelectedColsWidth方法调整列宽
type
TZYDBGridEH = class(TCustomDBGridEh)
public
end;
我在原来的基础上进行修改的实现代码：
//表格内容和字段标题宽度设置列宽
procedure SetDBGridColumnsWidth(Grid: TCustomDBGridEh);
var
i: integer;
begin
if not Assigned(Grid.DataSource) then Exit;
if not Grid.DataSource.Dataset.Active then Exit;
try
Grid.DataSource.Dataset.DisableControls;
for i := 0 to TDBGridEh(Grid).Columns.Count - 1 do
begin
TZYDBGridEh(Grid).OptimizeSelectedColsWidth(TDBGridEh(Grid).Columns[i]);
end;
Grid.DataSource.Dataset.EnableControls;
except on E: Exception do
begin
Error('设置表格' + Grid.Name + '出错！' + E.Message);
end;
end;
end;
=======================================================
DBGridEh可以,先设置UseMultiTitle为true
再设置每列的标题:
Columns.Title.Caption:='编号'
Columns.Title.Caption:='应扣款|水电'
Columns.Title.Caption:='应扣款|其它'
Field1.DisplayLabel := 'Title1|SubTitle1';
Field2.DisplayLabel := 'Title1|SubTitle2';
或
DBGridEh.Columns[0].Title.Caption := 'Title1|SubTitle1';
DBGridEh.Columns[1].Title.Caption := 'Title1|SubTitle2'
=======================================
（2）行
某些行，如某个字段包含特殊的字符串、工资大于某个值时，希望行用不同的颜色展示；
此时要使用DBGrid1DrawColumnCell事件；
对Table的某个字段的值进行判断，如：
if AnsiContainsStr(ADOTable1.FieldByName('ProductName').AsString,'金属') then
begin
DBGrid1.Canvas.Font.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
如果产品名称包含“金属”，那么整行字体为红色；
如果要改变底色，则使用DBGrid1.Canvas.Brush.Color := clblack
在DBGrid中改变第n列的颜色
在DBGrid的OnDrawCell事件中加入：
If Column=DBGrid1.Columns[n] then //也可用Column.FileName=字段名
DBGrid1.Canvas.brush.Color:=clRed;
===================================================
（1）分行不同颜色设置；在DBGridEh1DrawColumnCell中写；
if ADOQuery1.RecNo mod 2=0 then
begin
DBGridEh1.Canvas.Font.Color := clRed;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else begin
DBGridEh1.Canvas.Font.Color := clGreen;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
（2）分行不同背景颜色设置；在DBGridEh1DrawColumnCell中写；
if ADOQuery1.RecNo mod 2=0 then
begin
DBGridEh1.Canvas.Brush.Color := clRed;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else begin
DBGridEh1.Canvas.Brush.Color := clGreen;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
（3）符合条件的单元格颜色或者背景颜色设置；在DBGridEh1DrawColumnCell中写；
if Column.FieldName='价格' then
begin
if ADOQuery1.FieldByName('价格').AsFloat<0 then
begin
DBGridEh1.Canvas.Font.Color := clRed;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
================================================
1、DBGrideh最低下加上总计的栏
DBGridEh.FooterRowCount := 1;
DBGridEh.FooterColor := clYellow;
DBGridEh.SumList.Active := True;
DBGridEh.Columns[0].Footer.ValueType := fvtStaticText;
DBGridEh.Columns[0].Footer.Value := '总计：';
DBGridEh.Columns[1].Footer.ValueType := fvtCount; //fvtSum