Kein komplettes Programm aber einen Code-Schnipsel, der Dir hoffentlich weiter hilft:
Delphi-Quellcode:
procedure TfMain.aFehlerlisteExecute(Sender: TObject);
begin
if pMain.ControlCount = 1 then
pMain.Controls[0].Parent := TWinControl (pMain.Controls[0].Owner);
fFehlerliste.pMain.Parent := pMain;
end;
Zur Erläuterung:
- auf jedem Form gibt es als erstes ein Panel mit dem Namen pMain
- in dem vorliegenden Beispiel soll anstelle des aktuellen Panels pMain das Panel pMain des Formulare fFehlerListe angezeigt werden
- Vorher wird das aktuell gezeigte pMain seinem Eigentümer zurückgegeben.