标签:Sender cxGrid TObject 点击 设置 按钮 procedure
因为业务需要展示,在每行的数据最后一列显示一个按钮,点击按钮删除对应的数据。使用cxGrid能完美实现。 1、设置按钮列的properties是buttonedit2、设置properties下的属性 viewStyle=vsButtonsAutoWidth
3、设置Options中的 ShowEditButtons=isebAlways
4、点击properties下的buttons按钮,弹出: 到此界面设置结束,现在我们为这个按钮添加一个点击事件:
- //按钮事件:
- procedure colButtonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- //关联点击事件:
- (dbcolAdd.Properties as TcxButtonEditProperties).OnButtonClick
-
:= colButtonPropertiesButtonClick;
示例:
...... private { Private declarations } procedure cxGrid1DBTableView1ColumnPropertiesButtonClick( Sender: TObject; AButtonIndex: Integer); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.cxGrid1DBTableView1ColumnPropertiesButtonClick( Sender: TObject; AButtonIndex: Integer); begin //....... end; procedure TForm1.cxButton1Click(Sender: TObject); begin //设置第3列为按钮属性: cxGrid1DBTableView1.Columns[3].PropertiesClass:=TcxButtonEditProperties; //关联点击事件: (cxGrid1DBTableView1.Columns[3].Properties as TcxButtonEditProperties).OnButtonClick :=cxGrid1DBTableView1ColumnPropertiesButtonClick; end; ......
标签:Sender,cxGrid,TObject,点击,设置,按钮,procedure 来源: https://www.cnblogs.com/Bill-Lee/p/14180204.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。