Zitat von
Delphi-Phil:
kann ich es nicht machen wie in meinem code von oben? da scheint doch nur ein denkfehler zu sein oder??
Ja, ändere die letzte Zeile in
newframe2.Parent := DerFrame.PnlSchuelerverwaltung;
und es sollte gehen.
Allerdings brauchst du den ganzen Kram mit DerFrame und FindChildControl gar nicht, wenn das Ganze innerhalb einer einzigen Methode stattfindet:
Delphi-Quellcode:
//Schülerverwaltung laden
procedure TFormHaupt.JvNavPnlPageSchuelerverwClick(Sender: TObject);
var
newFrame: TFrmSchuelerverwaltung;
newFrame2: TFrmStammdaten;
begin
newFrame := TFrmSchuelerverwaltung.Create(PnlMain);
newframe.Align := alClient;
newFrame.Visible := true;
newframe.Parent := PnlMain;
//Schülerdaten laden
FormData.TblKlasse.Open;
FormData.QrySchueler.Open;
newFrame2 := TFrmStammdaten.Create(newFrame.PnlSchuelerverwaltung);
newframe2.Align := alClient;
newFrame2.Visible := true;
newframe2.Parent := newFrame.PnlSchuelerverwaltung;
end;