StringGrid in einem Frame suchen

[Ykcim]

Hallo himitsu,

Frame.Parent=FrameControl.ActivePage war der Hinweis, den ich brauchte... So funktioniert es jetzt:

Delphi-Quellcode:

var   Frame: TFrame;
      SG: TAdvStringGrid;
      I: integer;
begin
   for I := 0 to Main.ComponentCount -1 do begin
      if Components[I] is TFrame then begin
         if Components[i].GetParentComponent=FrameControl.ActivePage then begin
            Frame:= Components[I] as TFrame;
         end;
      end;
   end;
   if Frame=nil then begin
      Showmessage('Das entsprechende Frame konnte nicht gefunden werden');
      Exit;
   end;
   for I := 0 to Frame.ComponentCount -1 do begin
      if Frame.Components[I] is TAdvStringGrid then begin
         SG:= Frame.Components[I] as TAdvStringGrid;
      end;
   end;
   if SG=nil then begin
      Showmessage('Das entsprechende StringGrid konnte nicht gefunden werden');
      Exit;
   end;

Vielen Dank
Patrick