Beide Workarounds sind funktionsfähig, wobei der von Henkst eher dem entspricht, was wohl erwartet wird um das zu umgehen.
Wenn man sich mal den Quellcode in TCustomCheckBox anschaut sieht man auch, das hier ein Klick ausgeführt wird.
Delphi-Quellcode:
procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
begin
if FState <> Value
then
begin
FState := Value;
if HandleAllocated
then
SendMessage(
Handle, BM_SETCHECK, Integer(FState), 0);
if not ClicksDisabled
then Click;
end;
end;
Lg
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.