如何使dbgrid的标是题自动折行

Question

在使用dbgrid控件时，如何在运行量，通过缩小某列的宽度时，该列的标题宽度若大于列宽则自动折行，以完全显示标题。

Answer 1

你可以在程序里控制.
dbgrid1.column[0].width:=10 or other number.一般默认取决于你字段的长度。

Answer 2

用Ehlib吧，绝对好用，不好用问我，你的问题对它来说是小菜！

Answer 3

关注，如果直接用DBGrid的话，在DrawColumn的时候Rect是Const，而利用DrawText的时候要求参数是Var的，所以说可能不能直接用DBGrid。

Answer 4

yczyk(有鬼:兄弟会) 老兄说的对呀，你可以试一下，我用过，还算是可以的。

Answer 5

我曾经见过一些用delphi编写的成熟软件的dbgrid的title不仅可以文字自动折行，甚至可以做成象excel一样的复杂表头，我试了很长时间就是搞不出来，不知道有谁知道其中的奥妙，请指点指点。

Answer 6

可以用用友的Cell ActiveX组件来做的，很方便。

Answer 7

DrawText( IntegerValue,R, DT_RIGHT or DT_SINGLELINE or
                  FormatView_V )const
  { DrawText() Format Flags }
  {$EXTERNALSYM DT_TOP}
  DT_TOP = 0;
  {$EXTERNALSYM DT_LEFT}
  DT_LEFT = 0;
  {$EXTERNALSYM DT_CENTER}
  DT_CENTER = 1;
  {$EXTERNALSYM DT_RIGHT}
  DT_RIGHT = 2;
  {$EXTERNALSYM DT_VCENTER}
  DT_VCENTER = 4;
  {$EXTERNALSYM DT_BOTTOM}
  DT_BOTTOM = 8;
  {$EXTERNALSYM DT_WORDBREAK}
  DT_WORDBREAK = $10;
  {$EXTERNALSYM DT_SINGLELINE}
  DT_SINGLELINE = $20;
  {$EXTERNALSYM DT_EXPANDTABS}
  DT_EXPANDTABS = $40;
  {$EXTERNALSYM DT_TABSTOP}
  DT_TABSTOP = $80;
  {$EXTERNALSYM DT_NOCLIP}
  DT_NOCLIP = $100;
  {$EXTERNALSYM DT_EXTERNALLEADING}
  DT_EXTERNALLEADING = $200;
  {$EXTERNALSYM DT_CALCRECT}
  DT_CALCRECT = $400;
  {$EXTERNALSYM DT_NOPREFIX}
  DT_NOPREFIX = $800;
  {$EXTERNALSYM DT_INTERNAL}
  DT_INTERNAL = $1000;
  {$EXTERNALSYM DT_HIDEPREFIX}
  DT_HIDEPREFIX = $00100000;
  {$EXTERNALSYM DT_PREFIXONLY}
  DT_PREFIXONLY = $00200000;  {$EXTERNALSYM DT_EDITCONTROL}
  DT_EDITCONTROL = $2000;
  {$EXTERNALSYM DT_PATH_ELLIPSIS}
  DT_PATH_ELLIPSIS = $4000;
  {$EXTERNALSYM DT_END_ELLIPSIS}
  DT_END_ELLIPSIS = $8000;
  {$EXTERNALSYM DT_MODIFYSTRING}
  DT_MODIFYSTRING = $10000;
  {$EXTERNALSYM DT_RTLREADING}
  DT_RTLREADING = $20000;
  {$EXTERNALSYM DT_WORD_ELLIPSIS}
  DT_WORD_ELLIPSIS = $40000;

Answer 8

用友的控件可以直接被 delphi使用吗?
ihihonline(小小->记好啊.有空多来灌,你好,本人学习delphi不久,以上代码如何使用,请写详细一点,好吗?谢谢!