ActiveContrl in TFrame nutzen

[Kostas]

Hallo Zusammen,

in habe ein DevExpress Grid und dazu eine Methode wie die Spalteneinstellungen in einer INI persistent schreibt.
Die Methode funktioniert wenn das Grid auf einer normales Form ist. Es funktioniert nicht wenn das Grid auf ein TFrame platziert ist da ein Frame kein ActiveControl kennt. Das speichern der Grid-Einstellungen ist nicht lebenswichtig aber doch recht praktisch.
Manchmal habe ich auf dem Frame ein TabPageControl mit mehreren Grids. Eine allgemein Gültige Methode wäre also von Vorteil.

Die Methode ist übrigens in einer TActionList. Die Action wird in ein TcxBarPopupMenu eingebunden und das Meue wird dem Grid als PopupMenu verbunden. Bei Rechtsklick auf das Grid erscheint das PopupMenu und der Anwender wählt die action zum speichern aus.

Delphi-Quellcode:

procedure TfraAdressenAuswahl.acLayoutSpeichernExecute(Sender: TObject);
var
  AGridSite: TcxGridSite;
  AGrid: TcxGrid;
  AView: TcxCustomGridView;
begin
  if (ActiveControl is TcxGridSite) then
  begin
    AGridSite := ActiveControl as TcxGridSite;
    AGrid := AGridSite.Parent as TcxGrid;
    AView := AGridSite.GridView;
    AView.PatternGridView.StoreToIniFile( dm1.LayoutIni, false, [] );
  end;

end;

Hat jemand eine Idee wie man das umbauen könnte?