Checkbox onClick

[Bomberbb]

Es ist wieder eine Zeit hin, dass ich mit Komponenten gearbeitet habe. Ich hab nur ein Problem mit der Sichtbarkeit.
Ich möchte eine Checkbox von TCheckbox ableiten, die nicht die Eigenschaft hat, dass bei dem Setzen von checked im Quelltext nicht automatisch onClick aufgerufen wird. Habe herausgefunden, dass tCheckbox ein Nachfahre von tCustomCheckbox ist. Nun würde ich gerne in meiner Abgeleiteten Klasse auf fState zurückgreifen.

Delphi-Quellcode:

Procedure TMeineCheckBox.SetCheckedOnly(inCheckedStatus:Boolean);
begin
  If inCheckedStatus Then FState := cbChecked Else FState := cbUnchecked;
End;

Problem ist nur, dass FState private deklariert ist. Ich sehe zur Zeit irgendwie keine Möglichkeit auf den Wert in der Abgeleiteten Klasse zuzugreifen.

Hab auch schon im Forum nach Möglichkeiten gesucht. Bei der Lösung onClick temporär auf nil zu setzen wird mein Prog arg langsam.

Sieht jemand eine andere Möglichkeit?

[RWarnecke]

Mal eine Frage, wozu brauchst Du das genau ? Und wenn Du jetzt selber zur Laufzeit die TCustomCheckbox erstellst, würde Dir das dann weiterhelfen ?

[Bomberbb]

Ich möchte einfach nicht, dass wenn ich checked ein Wert im Quelltext zuweise onClick aufgerufen wird.

Dadurch kommt es im Programm immer wieder zu Problemen und die möchte ich nun gerne ausschließen.

[RWarnecke]

Wieso Du kannst doch das OnClick - Ereignis einfach weglassen. Und dann über einen Button den Status von Checked abfragen. Oder verstehe ich da etwas falsch ?

[Bomberbb]

Wenn Du im Quelltext so etwas schreibst:
checkbox.checked:=true; Wird beim Ausführen dieser Zeile das onClickEreignis aufgerufen. Was man ja nicht unbedingt haben will...

[Matze]

Mal ein sehr unschöner Workaround. Ob er klappt, weiß ich allerdings nicht.

Delphi-Quellcode:

CheckBox.OnClick := nil;
CheckBox.Checked := true;
CheckBox.OnClick := CheckBoxClick;

Grüße, Matze

[HenKst]

etwas weniger unschön vielleicht

Delphi-Quellcode:

MyCheckBox.ClicksDisabled:= true;
MyCheckBox.Checked:= true;
MyCheckBox.ClicksDisabled:= false;

Die ClicksDisabled property ist bei der normalen checkbox aus irgendeinem Grund protected(hab den code dazu nich gefunden...), wenn man sich aber seine eigene von TCustomCheckbox ableitet scheints zu klappen.

€dit:
okay clicksdisabled ist in TButtonControl schon als proctected declariert, klappt aber trotzdem problemlos wenn man sich seine eigene CheckBox ableitet^^

[Bomberbb]

Bin beim Stöbern stdctrls.pas auch auf ClicksDisabled gestoßen.

Delphi-Quellcode:

Procedure MeineCheckBox.SetCheckedOnly(inCheckedStatus:Boolean);
var
  Save:Boolean;
begin
  Save:=ClicksDisabled;
  ClicksDisabled:=true;
  checked:= inCheckedStatus;
  ClicksDisabled:=Save;
End;

und werde es nun wohl so lösen...

[quendolineDD]

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

[mannewolff]

Zitat von HenKst:

etwas weniger unschön vielleicht

Delphi-Quellcode:

MyCheckBox.ClicksDisabled:= true;
MyCheckBox.Checked:= true;
MyCheckBox.ClicksDisabled:= false;

Ich mache das so, dass ich eine Variable habe die sowas wie "Handlerfreigabe" heisst. In den Ereignisprozeduren steht dann

if not Handlerfreigabe then exit; Beim Laden von Datensätzen und setzen der Controls wird dann die Handlerfreigabe dementsprechend gesetzt:

Delphi-Quellcode:

Handlerfreigabe := false;
MyCheckBox.Checked:= true;
...
Handlerfreigabe := true;

Gefrickelt, aber hat sich in meinen Programmen bewährt. Hilft auch bei doppelten betätigen des Speicherbuttons etc., weil ich die Handlerfreigabe in allen Ereignisprozeduren habe. Während ich lade, speichere etc. interessieren mich die User-Inputs nicht.