Ich gebe zu, das Beispiel war nicht gut, es sollte jedoch folgenden Konstrukten negieren.
Delphi-Quellcode:
procedure TAboutBox.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
begin
ShowMessage('Ein');
end
else if CheckBox1.Checked = False then
begin
ShowMessage('Aus');
end;
end;
Ich selbst programmiere sonst auch in Deiner Manier, das Beispiel ging wohl etwas daneben
