Checkbox-Probleme: immer wird checkbox.click ausgelöst

[Philippe Sch.]

hallo
zunächst 'happy new year'. Habe kleines, aber lästiges Problem. Bei der zur Laufzeit erzeugten Anweisung 'checkbox1.checked:=True;' wird immer auch gleich die Prozedur Checkbox1.click ausgelöst. Dabei möchte ich jeweils nur, dass unter bestimmten Bedingungen die Checkbox aktiviert erscheint, ohne gleich die entsprechende Prozedur (wie sie durch Interaktion des Benutzers ausgelöst wird) abzuarbeiten. Gibt's eine Möglichkeit, dies zu vermeiden?
Merci
Philippe

[jbg]

Da musst du wohl den EventHandler kurzzeitig außer Kraft setzen:

Delphi-Quellcode:

procedure SetCheckBoxChecked(CheckBox: TCheckBox; Checked: Boolean);
var OnClick: TNotifyEvent;
begin
  OnClick := CheckBox.OnClick;
  try
    CheckBox.OnClick := nil;
    CheckBox.Checked := Checked;
  finally
    CheckBox.OnClick := OnClick;
  end;
end;

[sakura]

Einfacher:

Delphi-Quellcode:

// check an
SendMessage(CheckBox1.Handle, BM_SETCHECK, Integer(cbChecked), 0);

// check aus
SendMessage(CheckBox1.Handle, BM_SETCHECK, Integer(cbUnchecked), 0);

...:cat:...

[jbg]

Funktioniert aber nicht mit Kylix :lol: :roll:

[Philippe Sch.]

funktioniert, vielen Dank