Ereignis OnClick nur wenn gewollt ausführen

[himitsu]

Zitat von haentschman:

das OnClick wird nur ausgeführt, wenn sich der Wert ändert. Wenn die Checkbox False ist und auf False gesetzt wird passiert gar nix. Das hat mich ein wenig in die Irre geführt.

Das liegt an der VCL, denn diese prüft vorher oftmals, ob sich etwas ändert und fürht nur dann diese Änderungen aus.

in deinem Fall: (SetChecked greift auf SetState zu)

Code:

procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
begin
  [color=#ff0000][b]if FState <> Value then[/b][/color]
  begin
    FState := Value;
    if HandleAllocated then
      SendMessage(Handle, BM_SETCHECK, Integer(FState), 0);
    [color=#ff0000][b]if not ClicksDisabled then Click;[/b][/color]
  end;
end;

Und wenn man das so sieht, dann müßte man doch nur rausfinden, wie ClicksDisabled gesetzt wird

[haentschman]

Danke für Eure Anteilnahme

das einfachste wird wohl der OI sein. Bei den paar RadioButtons kann ich das manuell setzen.

einen schönen Sonntag

[himitsu]

joar, wird wohl das Einfachste sein, denn z.B. ist irgendwer auf die seltendämliche Idee gekommen ClicksDisabled nur Protected sein zu lassen

Delphi-Quellcode:

THackedCheckBox = class(TCheckBox)
public
  property ClicksDisabled;
end;

THackedCheckBox(YourCheckBox).ClicksDisabled := True;
YourCheckBox.Checked := ...;
THackedCheckBox(YourCheckBox).ClicksDisabled := False;