TSwitch wieder deaktivieren?

[himitsu]

FMX-TSwitch bei Fehler wieder deaktivieren?
In XE3 geht es noch, aber zwischenzeitlich wurde ja mehrmals alles komplett umgebaut.

Allein das geht schonmal nicht.

Delphi-Quellcode:

procedure TForm1.Switch1Switch(Sender: TObject);
begin
  Switch1.IsChecked := False;
end;

und so war es eigentlich gemeint.

Delphi-Quellcode:

procedure TForm1.Switch1Switch(Sender: TObject);
begin
  try
    //if Switch1.IsChecked then
    //  Activate
    //else
    //  Deactivate;
    raise Exception.Create('Fehlermeldung');
  except
    Switch1.IsChecked := False;
    raise;
  end;
end;

Auch Switch1.Model.Value := False; hilft nix.

Kann das jemand bestätigen?
Bei TButton.IsPressed funktioniert es.


Windows und ControlType=Styled ... sonst weiß ich es nicht, wie es ist, aber windows wird es wohl Nativ eh nicht kennen.




PS: Was macht hier eigentlich "iOS" in der Thread-Erstellen-Präfixliste, unter all den anderen "Entwicklungsumgebungen"?