delphi7 DBGrid的列表每行数据显示一个放按钮

要在 Delphi 7 的 DBGrid 控件的每行数据中显示一个按钮，你可以使用 TDBGridButtonColumn 组件并设置其 ButtonStyle 属性为 bsGlyph。

以下是一个简单的示例：

1. 在 Delphi 7 的窗体设计器中，将一个 TDBGrid 组件放置在你的窗体上。

2. 在窗体上放置一个 TDataSource 组件，并将其 DataSet 属性设置为你要在 DBGrid 中显示的数据集3. 打开 DBGrid 的 Columns 属性编辑器。点击右侧的“添加”按钮，选择 "TColumn" 类型。

4. 在 "TColumn Editor" 对话框中，选择 "TDBGridButtonColumn" 类型。

5. 在 "TDBGridButtonColumn Editor" 对话框中，设置 ButtonStyle 属性为 bsGlyph。

6. 在 "TDBGridButtonColumn Editor" 对话框中，为 Glyph 属性选择一个合适的图标，用于表示按钮。

7. 在 DBGrid 的 OnDrawColumnCell 事件中编写代码来绘制按钮。

   procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
     DataCol: Integer; Column: TColumn; State: TGridDrawState);
   var
     ButtonRect: TRect;
     ButtonWidth: Integer;
   begin
     if (Column is TDBGridButtonColumn) and (gdFocused in State) then
     begin
       ButtonWidth := 18; // 按钮的宽度
       ButtonRect.Left := Rect.Right - ButtonWidth - 2;
       ButtonRect.Right := Rect.Right - 2;
       ButtonRect.Top := Rect.Top + 2;
       ButtonRect.Bottom := Rect.Bottom - 2;

       DBGrid1.Canvas.Pen.Color := clBtnFace;
       DBGrid1.Canvas.Brush.Color := clBtnFace;
       DBGrid1.Canvas.Rectangle(ButtonRect);

       // 在按钮上绘制图标
       ImageList1.Draw(DBGrid1.Canvas, ButtonRect.Left + 2, ButtonRect.Top + 2, 0);
     end;
   end;

请确保你已经将一个 TImageList 组件放置在窗体上，并将其 Images 属性设置为包含所需图标的图像列表。

现在，每行数据将在最后一列显示一个带有图标的按钮。你可以根据需要自定义按钮的样式、位置和绘制方式。