delphi7 DBGird中放按钮

在Delphi 7的DBGird中放置按钮，你可以使用TDBGrid的OnCellClick事件来实现。以下是一个简单的示例代码：

1. 首先，将一个TDBGrid和一个TButton放置在窗体上。

2. 在TForm的私有部分声明一个TButton对象：

private
  FButton: TButton;

3. 在Form的OnCreate事件中，创建按钮并设置其属性：

procedure TForm1.FormCreate(Sender: TObject);
begin
  FButton := TButton.Create(Self);
  FButton.Parent := DBGrid1;
  FButton.Left := DBGrid1.Left + DBGrid1.Width - FButton.Width - 2;
  FButton.Top := DBGrid1.Top + (DBGrid1.DefaultRowHeight - FButton.Height) div 2;
  FButton.Caption := '按钮';
  FButton.OnClick := ButtonClick;
end;

4. 在TForm的OnDestroy事件中，释放按钮：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FButton.Free;
end;

5. 编写按钮的点击事件处理程序：

procedure TForm1.ButtonClick(Sender: TObject);
begin
  // 在这里编写按钮点击事件的逻辑代码
  ShowMessage('按钮被点击了！');
end;

通过上述步骤，你就可以在DBGird中放置一个按钮，并在点击按钮时触发相应的事件。记得将DBGrid1替换为你实际使用的TDBGrid控件。