라디오 버튼을 선택 취소하고 dxCheckGroupBox에서 case 문을 사용합니다.

Question

3 개의 cxRadioButton이있는 dxCheckGroupBox1이 있습니다. TdxCustomCheckGroupBoxCheckBox를 클릭하면 의 cxRadioButton이 활성화 또는 비활성화됩니다. 그것은 정상적인 행동입니다.

그러나 CheckGroupBox를 비활성화하면 선택한 cxRadioButton을 선택 취소하여 으로 지정하겠습니다. 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 합니다 (cxRadioButton의 선택에 따라에 CASE 문을 사용하는 방법입니다

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;