Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TForm1,
19. Jan 2015
Tatsächlich! OnClick wird auch dann ausgelöst, wenn Checked gesettet wird. Irgendwie bin ich davon ausgegangen, dass OnClick logischerweise nur dann ausgelöst wird, wenn man darauf klickt :wink:. Dann hat ja alles seine Richtigkeit, vielen Dank für die Info:thumb:
Und drauf gekommen, mal im Quellcode nachzuschauen bin ich natürlich auch nicht. :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TForm1,
18. Jan 2015
...Beim Schreiben viel mir gerade der Fehler auf, wo der Fehler lag...war ein einfacher Tippfehler :roll::wall: Der Code funktioniert jetzt prima:thumb:
Allerdings bleibt jetzt dennoch das Grundübel, nämlich, dass beim OnClick gleichzeitig das OnChange mit aufgerufen wird, obwohl ich das im Objektinspektor geändert habe. Das war eigentlich auch meine Ausgangsfrage. Weiß jemand über einen Bug...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TForm1,
18. Jan 2015
Nagut, überzeugt :wink:. Dennoch ist damit mein Problem nicht gelöst, denn es wird immer noch der OnChange aufgerufen, was ja eigentlich bei deinem Code kein Problem darstellen sollte, denn durch die Abfrage if FStatus <> Value, sollte bei dem ungewünschten Aufruf der folgende Code einfach übergangen werden. Dennoch tritt bei mir der Fall auf, wenn ich zurück wechseln möchte von FStatus:= false...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TForm1,
18. Jan 2015
Ja, alles ist ordnungsgemäß so eingestellt, dass es funktionieren sollte. :roll: Anscheinend gibt es da einen Bug in der Zuweisung der Events im Objektinspektor oder ich mache irgendwas anderes falsch.
Der Fehler tritt auch in der Form auf, dass er die "Schleife" ein paar mal durchrattert und danach den Fehler eines falschen Zugriffs schmeißt. Wisst ihr, warum er das tut?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TForm1,
17. Jan 2015
Hallo zusammen,
folgender Code:
procedure TForm1.GehevorChange(Sender: TObject);
begin
if Gehevor.Checked = false then
begin
Gehevor.Checked:= true;
exit;
end;
Gehezurueck.Checked:= false;