请问 在dbgrid 中如何实现折行?
解决方案 »
- MCI command handling window
- 调用DLL函数时出现的问题
- ***请问关于视频多媒体开发的问题****
- [正确就结贴]无TApplcation并且无窗体的程序需要Handle怎么办?
- 运行时出错??
- 各位高手:谁有lmshare.h(lm*.h,NetXXXXXX)的Pascal版???
- 请问:数据库中的多级主从表导出到EXCEL怎么存储,并且可以再导入到数据库中!
- 如何动态修改Form的TextHeight属性?
- 提取exe文件本身的图标
- 向高手请叫那里有串口通讯控件
- dbgrid1.options.dgMultiSelect:=true;这句话为什么有错误?
- 如何去掉maskedit的提示. 谢谢!
用DBGridEh数据控制组件吧
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var r: TRect;
begin
r := Rect;
with DBGrid1.Canvas do begin
FillRect(Rect); // 先清除背景
DrawText(Handle, PChar(Column.Field.AsString), Length(Column.Field.AsString), r, DT_WORDBREAK); // 自动换行
end;
end;