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.

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

ich danke dir

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

zusammenfalten · markieren

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.

oder einfach nur

markieren

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.

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.

markieren

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.

markieren

Delphi-Quellcode:

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

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

Zitat von himitsu:

oder einfach nur

markieren

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