Registriert seit: 12. Jun 2002
3.483 Beiträge
Delphi 10.1 Berlin Professional
|
3. Jan 2003, 22:58
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;
|