计算机二级DELPHI技巧:让dbgrid显示序号的方法

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在考试大论坛 考试大在线题库
  修改GRID.pas
  在TCustomGrid.SetColWidths事件改为:
  procedure TCustomGrid.SetColWidths(Index: Longint; Value: Integer);
  begin
  if FColWidths = nil then
  UpdateExtents(FColWidths, ColCount, DefaultColWidth);
  if Index >= ColCount then InvalidOp(SIndexOutOfRange);
  if Value <> PIntArray(FColWidths)^[Index + 1] then
  begin
  if Value < 12 then Value := 30; //新增
  ResizeCol(Index, PIntArray(FColWidths)^[Index + 1], Value);
  PIntArray(FColWidths)^[Index + 1] := Value;
  ColWidthsChanged;
  end;
  end;
  修改DBGRID.pas
  在procedure TCustomDBGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);事件加
  找到下面这一行
  FIndicators.Draw(Canvas, ALeft,
  (ARect.Top + ARect.Bottom - FIndicators.Height) shr 1, Indicator, True);
  if ACol <0 then
  begin
  Canvas.TextRect(ARect,0,(ARect.Top + ARect.Bottom - FIndicators.Height) shr 1
  ,inttostr(self.DataSource.DataSet.RecNo));
  end; //新增

  特别推荐:

  2009年9月全国计算机等级考试时间及科目预告

  2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

  2009年全国计算机等级考试报名信息汇总

  2009年NCRE考试有新变化

  2009年全国计算机等级考试大纲

  2009年上半年全国计算机二级考试试题及答案

  2009年上半年全国计算机等级考试试题答案汇总

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答