Hä? Warum ist das Ändern von Checked ein Click?

[himitsu]

Weil jemand vor über 20 Jahren dachte es wäre cool so.
Und nun bleibt es so, weil is halt so.




Einige haben sich über eine Ableitung, oder einen ClassHelper, da was gebaut.

Delphi-Quellcode:

//property CheckedNoClick: Boolean read GetCheckedNoClick write SetCheckedNoClick stored False;

procedure TMyCheckBox.SetCheckedNoClick(Value: Boolean);
var
  _Click, _Change: TNotifyEvent; 
begin
  _Click  := OnClick;
  _Change := Properties.OnChange;
  try
    OnClick             := nil;
    Properties.OnChange := nil;
    Checked             := Value;
  finally
    OnClick             := _Click;
    Properties.OnChange := _Change;
  end;
end;

OnChange ist für DevExpress (beim Delphi reicht OnClick)



[EDIT] Ich wusste doch da gab's nochwas, aber sah es vorhin natürlich nicht.
ClicksDisabled

PS: TCheckBox OnClick Checked