Delphi DbgridEh表格内容显示的状态

var

MyCol: TColumnEh;

begin

with DBGridEh_DWUser do

begin

Columns.Clear;

MyCol := Columns.Add;

MyCol.FieldName := 'USER_CODE';

MyCol.Title.Caption := '用户编码';

MyCol.Width := 120;

MyCol.ReadOnly := True; //只读

MyCol.Alignment := taCenter; //单元格中的内容对齐状态

MyCol.Layout := tlCenter;//单元格中的内容的布局

DBGridEh_DWUser.RowHeight := 20; //设置行高

DBGridEh_UserDW.UseMultiTitle := True; //表头变宽 可以有都表头