Delphi中如何让tcxGrid左边显示序号

最新推荐文章于 2024-03-20 20:24:27 发布

原创最新推荐文章于 2024-03-20 20:24:27 发布 · 694 阅读

2 ·

CC 4.0 BY-SA版权

【Delphi数据库类】专栏收录该内容

5 篇文章

订阅专栏

博客介绍了CXGrid相关操作的两个步骤。一是设置CXGrid的属性，将OptionsView.Indicator设为True；二是编写OnCustomDrawIndicatorCell方法，属于信息技术中前端开发相关内容。

第一步：

设置cxgrid的属性， OptionsView.Indicator = True

第二步：

写OnCustomDrawIndicatorCell方法

procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
  FValue: string;
  FBounds: TRect;
begin
  if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
  begin
    FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
    FBounds := AViewInfo.Bounds;
    ACanvas.FillRect(FBounds);
    ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
    InflateRect(FBounds, -1, -1);
    ACanvas.Font.Color := clBlack;
    ACanvas.Brush.Style := bsClear;
    ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
    ADone := True;
  end;
end;