请问 在dbgrid 中如何实现折行?保证送分! 请问 在dbgrid 中如何实现折行? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个问题以前研究过,当时想用两个 dbgrid 来模拟;不过效果不好 在DBGRID中要折行的用Memo1来代替显示。 Up用DBGridEh数据控制组件吧 procedure TManifest_Form.DBGrid1DrawColumnCell(Sender: TObject; 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; 我也曾经想过一些办法,但效果都不好,如果有好的别忘记我呀![email protected] 我决定用dbgrideh 但还是谢谢 allan2002(丸子) 不是我错了就是delphi 错了! 关于数据显示的问题!! 请进来 求接口回调机制的例子,也就是中间层主动通知客户端.非诚勿扰 转让企业MRPII含源代码...... 求数据恢复软件,要有搜索功能 ????????????????? 请问各位,如何在光标处插入字符? 请帮一个忙,答者有分! 怎么做桌面精灵? 查询最大值? 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;