Hallo,
hier noch eine andere Vorgehensweise zur Unterbrechung von cascading events:
Delphi-Quellcode:
procedure TDemoForm.CheckBox1Click(Sender: TObject);
begin
with Sender as TCheckBox do
if Focused then
begin
CheckBox2.Checked := not Checked;
// ...
end;
end;
Grüße vom marabu