X xtx_xiegao Unregistered / Unconfirmed GUEST, unregistred user! 2007-07-26 #1 已经找到了在DBGridEh上加序号的方法,但是没有那一列没有标题,我想在最左上角的那个格子中加上序号标题,也就是在那个格子中加入“序号”两个字,请问各位大侠要怎样才能实现呢?
勇 勇者 Unregistered / Unconfirmed GUEST, unregistred user! 2007-07-27 #2 添加一列不用的数据,把DISPLAYNAME 改成序号 procedure TFrmQrywtsl.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (Column.Index=0) then begin TDBGridEh(sender).Canvas.TextRect( Rect,Rect.Left+4,Rect.top+2, inttostr(TDBGridEh(sender).DataSource.DataSet.RecNo) ); end;
添加一列不用的数据,把DISPLAYNAME 改成序号 procedure TFrmQrywtsl.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (Column.Index=0) then begin TDBGridEh(sender).Canvas.TextRect( Rect,Rect.Left+4,Rect.top+2, inttostr(TDBGridEh(sender).DataSource.DataSet.RecNo) ); end;
X xtx_xiegao Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-01 #3 楼上,你理解错了,我是说在固定列上加"序号"两个字,左上方的那空格子里面加,序号列已经实现
W weichao9999 Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-01 #4 Columns(0).title:='序号';
X xibaixin Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-01 #5 你可以将固定列隐藏将即Columns(0).,,将Columns(1).title:='序号'; 你可以变变显示的方式 不要死板