Question

我有一个dxCheckGroupBox1，里面有3个cxRadioButton。单击TdxCustomCheckGroupBoxCheckBox启用或禁用 cxRadioButton的。这是正常行为。

但是我希望取消选中所选的cxRadioButton 禁用CheckGroupBox时。现在，最后使用的按钮保持选中状态（尽管已禁用）取消选中GroupBoxCheckBox后。

这似乎不起作用。

procedure TForm1.dxCheckGroupBox1Click(Sender: TObject);
var 
  i: integer;
  CheckGroupBox1: TdxCheckGroupBox;
begin
  for i := 0 to CheckGroupBox1.ComponentCount - 1 do
  if Components[0] is TcxRadioButton then
    (Components[0] as TcxRadioButton).Checked := False;;
end;

另一个问题是如何在此dxCheckGroupBox1中使用CASE语句（取决于cxRadioButton的选择？

Answer 1

好吧，如果没有更简单的方法，那么这样做：

procedure TForm1.Button1Click(Sender: TObject);
begin
if cxRadioButton1.checked then
   begin
   showmessage('button1');
   end
else if cxRadioButton2.checked then
   begin
   showmessage('button2');
   end
else if cxRadioButton3.checked then
   begin
   showmessage('button3');
   end
else if cxRadioButton4.checked then
   begin
   showmessage('button4');
   end
else showmessage('None of the above !');
end;


procedure TForm1.dxCheckGroupBox1Click(Sender: TObject);
begin
cxRadioButton1.Checked:=false;
cxRadioButton2.Checked:=false;
cxRadioButton3.Checked:=false;
cxRadioButton4.Checked:=false;
end;

取消选中radiobutton并在dxCheckGroupBox中使用case语句

1 个答案: