Edit bzw. ComboBox in einem StringGrid darstellen

[ibp]

das geht!
hoffe habe an alles gedacht!

Delphi-Quellcode:

type TfoDBEdit = class(TForm)
  ...
  procedure setRect(rec:Trect; ObjType:integer);
  ...
private
..
end;


procedure TfoDBEdit.stringgridSelectCell(Sender: TObject; ACol, ARow: Integer;
                                      var CanSelect: Boolean);
begin
  if (ACol=1) or (ARow=1) then  // feld 1-1 ist checkbox
      stringgrid.setRect(CellRect(1,1));
end;

procedure TfoDBEdit.setRect(rec:Trect);
var r:TRect;
begin
  // CheckBox in stringgrid
  CopyRect(r,rec); // rec an r übergeben
  r.BottomRight:=checkbox.Parent.ScreenToClient(stringgrid.ClientToScreen(r.BottomRight));
  r.TopLeft:=checkbox.Parent.ScreenToClient(stringgrid.ClientToScreen(r.TopLeft));
  checkbox.SetBounds(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  checkbox.BringToFront
end;