Immer mehrere CheckBoxen = true

[Jens Hartmann]

Hallo,

jetzt muss ich schon wieder nerven. Ich habe 3 CheckBoxen, wo von immer genau 2 Checked sein sollen. Und zwar so...

Code:

  CB1 and CB2
  CB1 and CB3
  CB2 and CB3

Beim initialisieren, werden CB1 und CB2 auf Checked gesetzt und CB3 Enabled. Klicke ich jetzt auf CB1, soll CB1 Enabled und Unchecked werden und CB3 Eneabled = true und Checked. Würde ich auf CB2, soll CB2 Enabled und Unchecked werden und CB3 Eneabled = true und Checked.

So soll das dann auch weiter möglich sein. Ich habe jetzt schon die Hilfe durchsúcht,

aber leider ohne Erfolg. Hat da jemand eine Idee.

Gruß Jens

[mkinzler]

Eine nicht aktive Komponente empfängt aber keine Messages

[Matze]

Hallo Jens

Zitat von Jens Hartmann:

Beim initialisieren, werden CB1 und CB2 auf Checked gesetzt und CB3 Enabled. Klicke ich jetzt auf CB1, soll CB1 Enabled und Unchecked werden und CB3 Eneabled = true und Checked. Würde ich auf CB2, soll CB2 Enabled und Unchecked werden und CB3 Eneabled = true und Checked.

was meinst du genau mit "Enabled"? Du schreibst, CheckBoxX soll enabled werden und eine andere CheckBoxY Enabled = true.
Ist die Eigenschaft "Enabled" nun egal oder verstehe ich etwas falsch? Sollen Checkboxen auch mal "disabled" werden?

[Jens Hartmann]

Hallo Matze,

War falsch beschrieben. Ich möchte das von drei Möglickeiten IMMER 2 Checked sind und die Dritte Disabled.

Also so..

Delphi-Quellcode:

//Aktueller Status CheckBox1.Checked und Enabled CheckBox2.Checked und Enabled CheckBox3.Unchecked und Disabled
//Klick CheckBox1
  with CheckBox1 do
    begin
      Enabled := false;
      Checked := false;
    end;
  with CheckBox2 do
    begin
      Enabled := true;
      Checked := true;
    end;  
  with CheckBox3 do
    begin
      Enabled := true;
      Checked := true;
    end;
//Neuer Status CheckBox1.UnChecked und Disabled CheckBox2.Checked und Enabled CheckBox3.Checked und Enabled
//Jetzt Klick nur noch in CheckBox2 und CheckBox3 möglich.

Ich hoffe ich konnte das jetzt so einigermaßen beschreiben.

Gruß Jens

[mkinzler]

Wie gesagt, reagiert ein disabled Control nicht mehr auf Klicks

[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

[mkinzler]

Wenn nur die CheckBox, welche nicht angehakt ist, enabled ist und die anderen nicht, kannst du die anderen nicht anklicken!

[Jens Hartmann]

Nein, genau deshalb umgekehrt. Es sind immer die Enabled die auch Checked sind. Klicke ich jetzt auf eine Checked, soll diese Unchecked und Disabled werden und die die bis dahin Unchecked und Disabled war, soll dann Checked und Enabled werden.

Ist aber auch kompliziert. Das ist ja wahrscheinlich auch nur mein Problem, das alles zu sortieren.

Gruß Jens

[Luckie]

Warum deaktivierst du das Steuerelement, wenn der Benutzer es anklicken können soll? Ein deaktiviertes Steuerelemente zeigt dem Benutzer, dass diese Funktion im Moment nicht zur Verfügung steht. Ich würde gar nicht auf die Idee kommen ein deaktiviertes Steuerelement anzuklicken.

Das, was du willst kann man bestimmt realisieren, aber es würden den Benutzer wohl ziemlich verwirren.

[Hawkeye219]

Hallo Jens,

ich würde ja eher eine TRadioGroup mit 3 Elementen und passender Beschriftung wählen, aber dennoch:

Delphi-Quellcode:

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  CheckBox1.OnClick := nil;
  CheckBox2.OnClick := nil;
  CheckBox3.OnClick := nil;

  CheckBox1.Checked := (Sender <> CheckBox1);
  CheckBox1.Enabled := CheckBox1.Checked;

  CheckBox2.Checked := (Sender <> CheckBox2);
  CheckBox2.Enabled := CheckBox2.Checked;

  CheckBox3.Checked := (Sender <> CheckBox3);
  CheckBox3.Enabled := CheckBox3.Checked;

  CheckBox1.OnClick := CheckBoxClick;
  CheckBox2.OnClick := CheckBoxClick;
  CheckBox3.OnClick := CheckBoxClick;
end;

Diese Routine musst du nur mit dem OnClick-Ereignis aller Checkboxen verbinden.

Gruß Hawkeye