Android: Switch vom vorherigen Formular zurücksetzen

[Sir Rufo]

und wie sieht es damit aus

Delphi-Quellcode:

// Formular 1
procedure TForm1.Switch1Switch(Sender: TObject);
var
  Dlg: TForm2;
  Switch : TSwitch absolute Sender;
begin
  showmessage(Switch.Name); // kann dann irgendwann raus ;o)

  if Switch.isChecked then
  begin
    Dlg := TForm2.Create(Self);
    Dlg.ShowModal( 
      procedure ( ModalResult : TModalResult )
      begin
        Switch.IsChecked := False; 
      end );
  end
end;

Jetzt brauchst du die Form nur noch chliessen und alles wird gut