Immer mehrere CheckBoxen = true

[Jens Hartmann]

Das mag ja sein, aber ich kann es ja nach dem Click disabled setzten. Ich bekomm das nur irgendwie mit der Ausführung nicht hin. Müsste aber doch mit dem disabled so in etwa funktionieren.

Delphi-Quellcode:

procedure TFDatenauswertung.CheckBox1Click(Sender: TObject);//CheckBox 1/2 und drei führen diese Funktion aus
begin
  if Sender = CheckBox1 then
    begin
      if CheckBox1.Checked then
        begin
          with CheckBox1 do 
            begin
              Checked := false; 
              Enabled := false;  
            end
          else
            begin
              Enabled := true;
              Checked := true;   
            end
{...}

So irgendwie könnte das doch funktionieren. ODER?

Gruß Jens