delphi7 DBGird行中放按钮，新增行时自动显示按钮的详细代码

以下是一个详细的示例代码，演示如何在Delphi 7的TDBGrid的每一行中放置按钮，并在新增行时自动显示按钮：

1. 在窗体上放置一个TDBGrid控件和一个TButton控件。

2. 在窗体的私有部分声明一个TList对象和一个布尔型变量：

private
  FButtons: TList;
  FShowButton: Boolean;

3. 在窗体的OnCreate事件中，初始化列表和变量：

procedure TForm1.FormCreate(Sender: TObject);
begin
  FButtons := TList.Create;
  FShowButton := False;
end;

4. 在窗体的OnDestroy事件中，释放按钮列表：

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to FButtons.Count - 1 do
    TButton(FButtons[I]).Free;
  FButtons.Free;
end;

5. 在TDBGrid的OnDrawColumnCell事件中，绘制按钮：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Button: TButton;
begin
  if Column.Index = DBGrid1.Columns.Count - 1 then // 最后一列放置按钮
  begin
    if FShowButton and (not (gdEditing in State)) then // 只在新增行时显示按钮
    begin
      Button := TButton.Create(DBGrid1);
      Button.Parent := DBGrid1;
      Button.Left := Rect.Left + (Rect.Width div 2) - (Button.Width div 2);
      Button.Top := Rect.Top + (Rect.Height div 2) - (Button.Height div 2);
      Button.Caption := '按钮';
      Button.OnClick := ButtonClick;
      FButtons.Add(Button);
    end;
  end;
end;

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

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('按钮被点击了！');
end;

7. 在按钮的点击事件中，调用TDBGrid的SetFocus方法，以确保按钮点击后仍然保持焦点在TDBGrid上：

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('按钮被点击了！');
  DBGrid1.SetFocus;
end;

8. 在触发添加新行的事件中，将FShowButton设置为True，并调用TDBGrid的Invalidate方法来重绘单元格：

procedure TForm1.btnAddRowClick(Sender: TObject);
begin
  FShowButton := True;
  DBGrid1.Invalidate;
end;

通过以上步骤，你就可以在TDBGrid的每一行中放置一个按钮，并在新增行时自动显示按钮。在点击按钮时，会触发相应的事件，并确保焦点仍然在TDBGrid上。记得将DBGrid1替换为你实际使用的TDBGrid控件。