procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if (gdfocused in state) then
  begin
      DBCombobox1.Left := Rect.Left + DBGrid1.Left;
      checkbox1.Top := Rect.Top + DBGrid1.top;
      checkbox1.Width := Rect.Right - Rect.Left;
      checkbox1.Height := Rect.Bottom - Rect.Top;
      checkbox1.Visible := True;
        end;
end;
你可同时加入各种vcl控件,只要在form上放置你想要假如gride的控件即可(如dbcombobox)