StringGrid in einem Frame suchen

[himitsu]

Wie gesagt, die Form ist der Ownder, also sind die Frames nur in .Components der Form enthalten.

Frame Suchen:
Du mußt somit in TabScheet.Controls suchen.
Oder du suchst in Form.Components nach dem Frame mit Frame.Parent=FrameControl.ActivePage .

In Frame.Components sind dann alle Komponenten (auch das Grid), welche irgendwo auf den Frame draufgelegt wurden.
In Frame.Controls sind nur die Komponenten, welche "direkt" auf dem Frame liegen.

Delphi-Quellcode:

var Frame: TFrame;
      SG: TAdvStringGrid;
      I: integer;
begin
   for I := 0 to FrameControl.ActivePage.ComponentCount -1 do begin
      if Components[I] is TFrame then begin
         Frame:= Components[I] as TFrame;  // wenn For und If nichts treffen, dann ist "Frame" nichts zugewiesen
      end;
   end;
   for I := 0 to Frame.ComponentCount -1 do begin  // -> Warnung "Frame"
      if Components[I] is TAdvStringGrid then begin
         SG:= Components[I] as TAdvStringGrid;
      end;
   end; 
   // irgendwas mit SG -> Warnung "SG"

[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

[himitsu]

Delphi-Quellcode:

var Frame: TFrame;  // lokale Variablem werden nicht automatisch initialisiert (1), also zu 99,99999% steht das, statistisch gesehen, nicht auf NIL
      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  // Wenn kein Frame gefunden wurde, trifft somit diese Prüfung womöglich nicht das gewollte Ergebnis.
     ...

Wie gesagt, man sollte dringend auf den Compiler hören.

if SG=nil then ist formal richtig, aber persönlich finde ich if Assigned(SG) then leserlicher.
Und es Assigned ist vorallem bei Methodenzeigern schöner, da Diese intern eigentlich aus zwei Pointern bestehen.

(1) Mit kleinen Ausnahmen, welche allerdings nur automatisch verwaltete Typen betrifft, wie z.B. Strings, Interfaces und dynamische Arrays.