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;  //表头变宽  可以有都表头