checkbox change ohne click

[khh]

hallo zusammen,
gibt es ne Möglichkeit den Status einer Checkbox zu ändern, ohne das Ereignis OnClick auszulösen.
Wenn ich das richtig sehe werden beide Ereignisse zusammen ausgelöst.
Wozu dann die Unterscheidung?
Hintergund ist, dass ich auf das Setzen des Status im Programm anders reagieren möchte als wenn der Benutzer die checkbox anklickt.

[rainerg]

Ich denke, dies hier könnte dir helfen:
http://www.delphi-library.de/topic_Z...n_91692,0.html

[khh]

ich danke dir

[DeddyH]

Dafür eine eigene Komponente finde ich etwas übertrieben. Wie wäre es denn so?

Delphi-Quellcode:

type
  TCheckbox = class(StdCtrls.TCheckbox)
  private
    FAvoidClick: Boolean;
    function GetMyState: TCheckBoxState;
    procedure SetMyState(const Value: TCheckBoxState);
  public
    property AvoidClick: Boolean read FAvoidClick write FAvoidClick;
    property State: TCheckBoxState read GetMyState write SetMyState;
  end;

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    ...
  end;

...

function TCheckbox.GetMyState: TCheckBoxState;
begin
  Result := inherited State;
end;

procedure TCheckbox.SetMyState(const Value: TCheckBoxState);
begin
  ClicksDisabled := FAvoidClick;
  inherited State := Value;
  ClicksDisabled := false;
end;

Über die neue Property AvoidClick kann man individuell je Checkbox angeben, ob sie ein Click-Event auslösen soll, wenn State geändert wird.

[himitsu]

oder einfach nur

Delphi-Quellcode:

type
  TCheckbox = class(StdCtrls.TCheckbox)
    property ClicksDisabled;
  end;

Wenn man nun im OnCreate der Form CheckBox1.ClicksDisabled := True; setzt, wird ab da beim OnChange kein OnClick mehr ausgeführt.

[DeddyH]

Ich hatte gar nicht in den Source von StdCtrls geschaut und wusste daher nicht, ob man ClicksDisabled dauerhaft ohne Probleme setzen kann/darf. Aber wenn das nicht zu unerwünschten Nebeneffekten führt, kann man sich den ganzen Schmonses tatsächlich sparen.

[ConnorMcLeod]

Delphi-Quellcode:

var
  lfOldOnClick: TNotifyEvent;
begin
  lfOldOnClick := chkBox.OnClick;
  chkBox.OnClick := nil;
  ...
  MachWasGanzGefinkeltes();
  ...
  chkBox.OnClick := lfOldOnClick;
end;

Ungetestet in die Tastatur gehämmert.

Oder guckst Du hier.

Delphi-Quellcode:

{set a checked}
yourCheckBox.Perform(BM_SETCHECK, 1, 0);

{set a unchecked}
yourCheckBox.Perform(BM_SETCHECK, 0, 0);

[khh]

Zitat von himitsu:

oder einfach nur

Delphi-Quellcode:

type
  TCheckbox = class(StdCtrls.TCheckbox)
    property ClicksDisabled;
  end;

Wenn man nun im OnCreate der Form CheckBox1.ClicksDisabled := True; setzt, wird ab da beim OnChange kein OnClick mehr ausgeführt.

scheint mir die einfachste Lösung zu sein

Ich danke euch