Wie wird verhindert das bei SetFocus der RadioButton gecheckt wird

[Luckie]

Zitat von himitsu:

Wenn nur eine Box gleichzeitig aktiviert sein soll, dann deaktiviere beim Aktivieren einer Box alle anderen Boxen und fertig.

Das widerspricht aber auch dem gewohnten Verhalten.

[himitsu]

Der gesamten Liste/Gruppe vielleicht (hier kann man ja über ein Label oder den hint einen Hinweis auf diese Eigenart geben), aber nicht der einzelnen Komponente.

Hier eine Variante für "maximal eine CheckBox gewählt":

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var B: Boolean;
begin
  if CheckBox1.Tag <> 0 then Exit;
  CheckBox1.Tag := 1;
  B := CheckBox1.Checked or CheckBox2.Checked or CheckBox3.Checked {...};
  CheckBox1.Enabled := CheckBox1.Checked or not B;
  CheckBox2.Enabled := CheckBox2.Checked or not B;
  CheckBox3.Enabled := CheckBox3.Checked or not B;
  {...}
  CheckBox1.Tag := 0;
end;

Und ich würde mal sagen, dieses Verhalten wäre so sehr bekannt.