如何在Grid里面添加一个Command按钮

1. grid 列中可以再添加其他控件，可以设计时添加，也可以使用 AddObject / NewObject 在运行时动态添加

2. vfp9 可以通过 bindevent 函数将另一个自定义表单方法绑定到原方法/事件之前（或之后运行），部分方法/事件原生行为可通过 nodefault 禁用

procedure TForm1.Button1Click(Sender: TObject)var Rect: TRectBtn: TButtonBtn.Caption := '你好'begin ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^改换琅绫擎的参数会使按钮创建在不合的宾栏里 Btn := TButton.Create(Self)Btn.Parent := StringGrid1Btn.Left := Rect.LeftBtn.Top := Rect.Topend我想要实现这个重要的是找到每一个宾栏（Cell)的地位. Rect := StringGrid1.CellRect(2, 2)膳绫擎仅仅是一个例子，在实际应用中是没有什么意义的，根据须要本身修改吧！！ 查看原帖>>

1、不建议你这种通过代码添加控件的方式，建议改用DataGrid控件，然后直接绑定数据源，这是速度最快的方式；为了实现你要的效果，请使用blend修改DataGrid的样式。

2、如果非要手动添加控件，建议把Label控件换成TextBlock控件，因为TextBlock是更底层的控件，专门用来显示文本的；而Label是更高级的控件，功能更强大，但是它更耗性能。

---