2014-05-25 4 views

답변

0

이 코드를 첨부하십시오 OnCheckBoxClick 이벤트에

PROCEDURE TMainForm.AdvOfficeRadioGroup1CheckBoxClick(Sender : TObject); 
    BEGIN 
    IF AdvOfficeRadioGroup1.CheckBox.Checked THEN BEGIN 
     IF AdvOfficeRadioGroup1.Tag>=0 THEN AdvOfficeRadioGroup1.ItemIndex:=AdvOfficeRadioGroup1.Tag; 
     AdvOfficeRadioGroup1.Tag:=-1 
    END ELSE BEGIN 
     AdvOfficeRadioGroup1.Tag:=AdvOfficeRadioGroup1.ItemIndex; 
     AdvOfficeRadioGroup1.ItemIndex:=-1 
    END 
    END; 

. AdvOfficeRadioGroup의 Tag 속성을 사용하여 이전에 선택한 ItemIndex를 저장하므로 확인란을 다시 선택할 때 복원 할 수 있습니다.

+0

선택을 제거 (비움)하고 싶습니다. 보관되지 않습니다. – user763539

+0

그런 다음 "IF AdvOfficeRadioGroup1.Tag> = 0 THEN AdvOfficeRadioGroup1.ItemIndex : = AdvOfficeRadioGroup1.Tag"줄을 삭제하십시오. 코드에서. – HeartWare

+0

작동하지 않습니다 ... – user763539