带按钮的CxGrid

转载 2007年09月17日 19:53:00

使用 CxGrid 制作出类似于网页上的数据表格效果,每条记录后都能带有按钮。通过按钮去控制指定的记录。

程序截图:

关键的设置在 DFM 中:
object Form1: TForm1
   Left = 0
   Top = 0
   Caption = 'Form1'
   ClientHeight = 217
   ClientWidth = 460
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object cxGrid1: TcxGrid
     Left = 8
     Top = 8
     Width = 444
     Height = 200
     TabOrder = 0
     object cxGrid1DBTableView1: TcxGridDBTableView
       NavigatorButtons.ConfirmDelete = False
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
       OptionsCustomize.ColumnGrouping = False
       OptionsView.ShowEditButtons = gsebAlways
       OptionsView.GroupByBox = False
       object cxGrid1DBTableView1name: TcxGridDBColumn
         DataBinding.FieldName = 'name'
         MinWidth = 124
         Options.Editing = False
         Options.Filtering = False
         Options.FilteringFilteredItemsList = False
         Options.FilteringMRUItemsList = False
         Options.FilteringPopup = False
         Options.FilteringPopupMultiSelect = False
         Options.Focusing = False
         Options.IgnoreTimeForFiltering = False
         Options.IncSearch = False
         Options.GroupFooters = False
         Options.Grouping = False
         Options.HorzSizing = False
         Options.Moving = False
         Options.Sorting = False
       end
       object cxGrid1DBTableView1pwd: TcxGridDBColumn
         DataBinding.FieldName = 'pwd'
         MinWidth = 124
         Options.Editing = False
         Options.Filtering = False
         Options.FilteringFilteredItemsList = False
         Options.FilteringMRUItemsList = False
         Options.FilteringPopup = False
         Options.FilteringPopupMultiSelect = False
         Options.Focusing = False
         Options.IgnoreTimeForFiltering = False
         Options.IncSearch = False
         Options.GroupFooters = False
         Options.Grouping = False
         Options.HorzSizing = False
         Options.Moving = False
         Options.Sorting = False
       end
       object cxGrid1DBTableView1Fin: TcxGridDBColumn
         DataBinding.FieldName = 'Fin'
         MinWidth = 124
         Options.Editing = False
         Options.Filtering = False
         Options.FilteringFilteredItemsList = False
         Options.FilteringMRUItemsList = False
         Options.FilteringPopup = False
         Options.FilteringPopupMultiSelect = False
         Options.Focusing = False
         Options.IgnoreTimeForFiltering = False
         Options.IncSearch = False
         Options.GroupFooters = False
         Options.Grouping = False
         Options.HorzSizing = False
         Options.Moving = False
         Options.Sorting = False
       end
       object cxGrid1DBTableView1Column1: TcxGridDBColumn
         Caption = 'Edit'
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
             Caption = 'Edit'
             Default = True
             Kind = bkText
             Width = 50
           end>
         Properties.ReadOnly = True
         Properties.ViewStyle = vsButtonsOnly
         Properties.OnButtonClick = cxGrid1DBTableView1Column1PropertiesButtonClick
         MinWidth = 64
         Options.Editing = False
         Options.Filtering = False
         Options.FilteringFilteredItemsList = False
         Options.FilteringMRUItemsList = False
         Options.FilteringPopup = False
         Options.FilteringPopupMultiSelect = False
         Options.Focusing = False
         Options.IgnoreTimeForFiltering = False
         Options.IncSearch = False
         Options.GroupFooters = False
         Options.Grouping = False
         Options.HorzSizing = False
         Options.Moving = False
         Options.Sorting = False
         Styles.Content = cxStyle1
       end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = cxGrid1DBTableView1
     end
   end
   object ADOConnection1: TADOConnection
     Connected = True
     ConnectionString =
       'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
       'fo=False;User ID=sa;Initial Catalog=TestWSS;Data Source=.;Use Pr' +
       'ocedure for Prepare=1;Auto Translate=True;Packet Size=4096;Works' +
       'tation ID=TAPSH-NICHOLUS;Use Encryption for Data=False;Tag with ' +
       'column collation when possible=False'
     LoginPrompt = False
     Provider = 'SQLOLEDB.1'
     Left = 96
     Top = 152
   end
   object ADOTable1: TADOTable
     Active = True
     Connection = ADOConnection1
     CursorType = ctStatic
     TableName = 'W_User'
     Left = 128
     Top = 152
   end
   object DataSource1: TDataSource
     DataSet = ADOTable1
     Left = 160
     Top = 152
   end
   object cxStyleRepository1: TcxStyleRepository
     Left = 192
     Top = 152
     object cxStyle1: TcxStyle
       AssignedValues = [svColor, svTextColor]
       Color = clSkyBlue
       TextColor = clNavy
     end
   end
end
 

请教cxgrid里一列设置了buttonedit,点击后怎么能取得它所属的TcxGridDBTableView

请问cxgrid里一列设置了buttonedit,点击后如何能取得它所属的TcxGridDBTableView 需要用它所属的TcxGridDBTableView的DataController的方法...
  • u011144681
  • u011144681
  • 2014年05月18日 15:45
  • 919

cxGrid增加一栏显示checkBox的设置方法

鉴于本人首次设定cxGrid的CheckBox的时候费了很大劲,发现很多人都会碰到这个问题,现在总结一下,以供各位互相学习借鉴。步骤如下(不分先后):1、 cxGrid添加完自己所需的所有字段后,增加...
  • xjjrocker
  • xjjrocker
  • 2006年09月08日 16:41
  • 10288

cxGrid按钮列

  • 2016年05月21日 14:43
  • 4KB
  • 下载

cxGrid使用笔记

使用cxGrid有一些时间了,在这里总结一下使用cxGrid的一些方法,希望给刚开始接触cxGrid的人一些帮助。1.简单介绍:cxGrid右下方的cxGrid1Level1是表示Grid表的层,cx...
  • henreash
  • henreash
  • 2008年05月14日 16:23
  • 9816

cxGrid使用汇总

1. 去掉cxGrid中台头的Box 解决:在tableview1的ptionsview的groupbybox=false;   ****************************...
  • newsxy
  • newsxy
  • 2016年01月11日 14:36
  • 1637

cxgrid控件常用属性说明

TcxGrid Align        设置控件的排列方式。        alBottom:相对于父容器为底端对齐排列。        alClient:相对于父容器为剩余部分完全覆盖排列...
  • ShengShengLan
  • ShengShengLan
  • 2013年08月28日 20:57
  • 6472

cxGrid 使用指南 3

公司目前这个项目要大量的用CxGrid,以前我从未用过,所以被逼得焦头烂额.加之我用的这电脑系统貌似有问题(老出些莫明其妙的事儿,如:突然不能编译出exe,上班开机突然丢失大堆的DLL文件,F9执行后...
  • pcent
  • pcent
  • 2012年05月13日 23:46
  • 1109

cxgrid (数据库控件)控件的使用

1:cxgrid是应该数据关联的控件,类似dbgrid。 2:一般用来查阅表信息,如果要修改的话,直接在上面编辑或添加 非常不方便 通常要放几个EDit来对选中的记录进行编辑或添...
  • pcent
  • pcent
  • 2012年05月13日 23:42
  • 2853

delphi中cxGrid使用汇总(一)

1. 去掉cxGrid中台头的Box 解决:在tableview1的ptionsview的groupbybox=false;   ********************************...
  • wozengcong
  • wozengcong
  • 2013年10月04日 00:07
  • 3055

DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案

1、把列的Properties属性设置为ExtLookupComboBox。 Properties.IncrementalFiltering := False; Properties.CaseSens...
  • QQ56430204
  • QQ56430204
  • 2016年08月13日 14:06
  • 1957
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:带按钮的CxGrid
举报原因:
原因补充:

(最多只允许输入30个字)