Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
19. Jan 2015
Aha, das ist aber ein völlig normales Verhalten und sollte auch so dokumentiert sein. Eine Änderung der Eigenschaft Checked löst auch einen OnClick-Event aus. Es kann auch genauso gut sein, dass beim Setzen der Eigenschaft Checked immer OnClick gefeuert wird und OnChange nur dann kommt, wenn Changed vorher anders war. Genauso gut kann es sogar (auch wenn es falsch wäre -> Bug) sein, dass beide...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
18. Jan 2015
Ok, letzte Gelegenheit, dann frag einfach nicht mehr, bzw. ich bin solange raus bis:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
18. Jan 2015
Dann zeig doch mal deinen Code denn nur anhand deiner Beschreibung kann man da nichts finden
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
18. Jan 2015
Ah sehr schön, dass du meinen Text aufmerksam durchgelesen hast:
Soll ich es größer und bunter gestalten? Soll ich explizit noch dazu schreiben
Sollte ich vorsichtshalber auch noch vermerken "Einatmen - Ausatmen! Und hübsch in dieser Reihenfolge und kontinuierlich!" :wall:
Jetzt mal wieder an die normaldenkende Allgemeinheit (jeder der sich dazu zählt, darf sich angesprochen fühlen)
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
18. Jan 2015
Ja und?
Dann packe die Logik doch einfach in diese Klasse oder schalte da einfach eine Klasse davor, die diese Logik innehat. Was man nicht macht, ist die Logik in der Form/View so an direkt mit den Controls zu verkoppeln, wie du das gemacht hast.
@Dejan Vu
Es ging mir nur um das Prinzip, wie man das zusammenfassen kann.
Richtig, richtig, wird das z.B. mit einem ViewModel, wo jeder...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
17. Jan 2015
Es ist eher simpel zu lösen:
Erstelle dir eine Eigenschaft vom Typ Boolean mit einer Setter-Methode:
procedure TForm1.SetStatus( const Value : Boolean );
begin
if FStatus <> Value then
begin
FStatus := Value;
GeheVor.Checked := FStatus;