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"?