Edit bzw. ComboBox in einem StringGrid darstellen

[ibp]

Delphi-Quellcode:

///////////////////////////////////////////////////////////////////////////////
// Wenn Fokus nicht beim SG, dann blaue Zelle verbergen!
//
procedure TfoDBEdit.stringgridExit(Sender: TObject);
var grdRec:TGridRect;
begin
  with grdRec do
  begin
    Top:=-1;
    Left:=-1;
    Right:=-1;
    Bottom:=-1;
  end;
  stringgrid.Selection:=grdRec;
end;


///////////////////////////////////////////////////////////////////////////////
// Objekte im Grid unsichtbar machen,
// wenn per Scroll der Bereich ausserhalb liegt
//
procedure TfoDBEdit.stringgridTopLeftChanged(Sender: TObject);
begin
  if checkbox.Visible then checkbox.Visible:=false;
end;