5,388
社区成员
发帖
与我相关
我的任务
分享
......
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;
......