// pembutan unit 
unit GambarDBgrid;
interface
uses windows,Messages,Sysutils,Classes,Graphics,
Controls,Forms,Grids,Dbgrids;
Type
  TGambarDBgrid = Class(TDbgrid);
  private
    FRowHeight:integer;
    Protected
    Procedure
      SetRowHeight(Value:integer);
      Public
      Function CellRect(Acol,Arow :LongInt):Trect;ReintRoduce;
      property Row;
      Property Col;
      Published
      Property RowHieght:integer
      Read FRowHieght write SetRowHieght;
    end;
    Procedure Register;
implementation
uses DB;
Function TGambarDBgrid.CellRect(Acol,Arow:Longint):Trect;
begin
  result:=inherited CellRect(Acol,Arow);
end;
Procedure TGambarDBgrid.setRowHieght(Value:integer);
begin
  if FRowHieght <> value then begin
    FRowHieght :=Value;
    DefaultRowHieght :=FRowHieght;
    if self.datalink.active then begin
      Perform(WM_SIZE,0,0);
    end;
  end;
end;
procedure Register;
begin
  RegisterComponents('Custom',[TGambarDBGrid]);
end;

//---------------------------Menggunakan unitnya
procedure TFgrid.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
    Datarect:Trect;
 Begin
   // Place the button in the first column.
   If (Column.Index = 0) Then Begin
      With ButtonDBGrid1 Do Begin
         DataRect := CellRect(Column.Index,Row);
      End;
   // Assign the button's parent to the grid.
   If SpeedButton1.Parent <> ButtonDBGrid1 Then
      SpeedButton1.Parent := ButtonDBGrid1 ;
   // Set the button's coordinates.
   // In this case, right justify the button.
   If SpeedButton1.Left <> (DataRect.Right - SpeedButton1.Width) Then
      SpeedButton1.Left := (DataRect.Right - SpeedButton1.Width) ;
   If (SpeedButton1.Top <> DataRect.Top) Then
      SpeedButton1.Top := DataRect.Top ;
   // Make sure the button's height fits in row.
   If (SpeedButton1.Height <> (DataRect.Bottom-DataRect.Top)) Then
      SpeedButton1.Height := (DataRect.Bottom-DataRect.Top);
   End;
End;

@denmasdanang: :kepiss bisa pakai ehlib, lengkap

@denmasdanang: iya