Vererbte Frames finden...

[litsa]

..die Frames erstelle ich so:

Delphi-Quellcode:

procedure TStatusFr.NewFrame(n_: string);
var
  quTab:   TTabSheet;
  quFrame: TFrame;
begin
  quTab      := TTabSheet.Create(Main.PageControl1);
  quTab.PageControl := Main.PageControl1;
  quTab.Name := 'tab' + n_;
  quTab.Caption := n_;
  quTab.Show;
  with TmyFrame.Create(self) do
  begin
    Name    := 'frame' + n_;
    Caption := n_;
    Parent  := quTab;
    Show;
    align := alClient;
  end;
end;