Für die Daten würde ich eine Zwischenschicht nutzen. Eine Art "Controller", der beide Formulare kennt und auch für das Umschalten verantwortlich ist und auf diese Weise die Daten von Formular (a) abgreifen kann, um danach dann Formular (b) zu bestücken und umgekehrt.
Ja so hab ich es jetzt auch gemacht...
Delphi-Quellcode:
case CurrentDeviceOrientation of
doUnknown :;
doPortraitUpsideDown,
doPortrait : begin
if ViewFormOrientation <> mfPortrait then
begin
if Assigned(LForm) then
FreeandNil(LForm);
PForm := TTest1P.create(self);
PForm.Show;
exit;
end;
end;
doLandscapeRight,
doLandscapeLeft : begin
if ViewFormOrientation <> mfLandscape then
begin
if Assigned(PForm) then
FreeandNil(PForm);
LForm := TTest1L.create(self);
LForm.Show;
exit;
end;
end;
doFaceUp,
doFaceDown :;
end; //
Dann hab ich ein TTest1G (als Vater Formular) Test1L(TTest1G) und Test1P(TTest1G) sind davon abgeleitet...
Jetzt muss ich "nur" noch die Inhalte der Felder,Memos, Switches usw. zwischenspeichern.
Und ich will den Controler ja nicht für jedes Formular Programmieren, also muss ich die Creates noch anonymisieren... So nach dem Motto Einchecken von einem Formular Paar in den Controller...
Mavarik