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; //表头变宽 可以有都表头
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步