zoukankan      html  css  js  c++  java
  • delphi cxgrid 使用方法

    delphi cxgrid 使用方法
    1.绑定数据
    方法
    cxGrid1DBTableView1.DataController.DataSource:=DataSource1
    2.去掉"Drag   a   column   header   here   to   group   by   that   column"
    方法
    cxGrid1DBTableView1.OptionsView.GroupByBox置为False
    3.去掉表头下三角数据
    方法
    cxGrid1DBTableView1.Optionscustomize.columnfiltering置为False
    4.增加序号
    方法
    在dataset 里边增加 Mycount 字段 类型为 string
    在 CXgrid 增加显示字段 序号 mycount
    为该字段写事件
    procedure Tfrm_form.ReDataSet2mycountGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    begin
      inherited;
      text:=inttostr(redataset2.RecNo);
    end;

    将 序号 绑定 字段 Mycount

    5.CXgrid 增加一栏显示checkBox
    方法
    在dataset 里边增加 MySelect字段 类型为 BOOLEAN

    在 CXgrid 增加显示字段 选择 select

    设定select 字段的Properties为 CheckBox .  ReadOnly = False;
    NullStyle = nssUnchecked

    procedure Tfrm_form.cxGrid1DBTableView1CellClick(
      Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    var
      Row: Integer;
    begin
      inherited;

      if ACellViewInfo.Item.Name = 'mycheck' then
      begin
        Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
        if cxGrid1DBTableView1.ViewData.Records[Row].Values[0] = True then
          cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False
        else
          cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := True;
      end;

    end;



    procedure Tfrm_form.cxGrid1DBTableView1MouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var
      Row: Integer;
    begin
      inherited;
      //单选
      // for Row:=0 to  cxGrid1DBTableView1.DataController.RecordCount-1 do
      // begin
      //   cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False;
      // end;
      //多选
        if  cxGrid1DBTableView1.DataController.RecordCount<>0 then
      begin
       Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;

      if cxGrid1DBTableView1.ViewData.Records[Row].Values[0] = True then
        cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := False
      else
        cxGrid1DBTableView1.ViewData.Records[Row].Values[0] := True;
      end;
    end;

    delphi子窗体重复打开问题解决方法

    DELPHI 画报表 画表头 stringgrid控件

    DELPHI 排课系统课表

    如何在DBGrid的每一行前加一个单选框?

    delphi tree 从一个表复制到另一个表

  • 相关阅读:
    ubuntu下cmake自动化编译的一个例子
    KL变换和PCA的数学推导
    tensorflow c++ API加载.pb模型文件并预测图片
    tensorflow c++接口的编译安装与一些问题记录
    深度增强学习--总结下吧
    深度增强学习--DPPO
    深度增强学习--DDPG
    深度增强学习--A3C
    tomcat远程调试
    springboot问题记录
  • 原文地址:https://www.cnblogs.com/fengju/p/6173855.html
Copyright © 2011-2022 走看看