我记得 DBGridEh1 这个控件好象能设置序号列,怎么设置啊 本帖最后由 luojianfeng 于 2010-04-30 10:26:20 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TfrmOptjPrint.DBGridEh1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh;State: TGridDrawState);begininherited;if (column.Title.Caption = '序号') thenbegin DBGridEh1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,IntToStr( dbgrideh1.DataSource.Dataset.RecNo));end; 新版 EHLIB 5 直接有支持 在Ehlib5里的DBGridEh控件属性里点开OptionsEh,设置dghShowRecNo为True即可 关于Delphi函数声明的问题? 求本机公网IP函数 求代码或帮我改改! ★★强力支持WGYKING(修罗是谁?!)做Delphi 语言基础/算法/系统设计版版主★★ 关于注册表中的ValueExists函数 如何实现:执行某操作出现一个提示框,显示正在载入? ado连接excel的问题,若能解决,分不够再加! 在DELPHI中有沒有直接比較兩個用QUERY查詢的記錄集是否相同的函數或方法﹐ 请帮忙想一下?—————————————————— Delphi的一个Bug! 窗体效果 一个关于屏幕截图的问题
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
if (column.Title.Caption = '序号') then
begin
DBGridEh1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,IntToStr(
dbgrideh1.DataSource.Dataset.RecNo));
end;