Q&A

  • RadioGroup를 사용하려는데..
RadioGroup을 사용하려고 합니다.

RadioGroup을 클릭했을때 Index가 바뀌지안고 Index를 바꿀건지를 물어보고

Yes라고 하면 바꾸도록 하려고 하는데요.

Form에 OnCloseQuery이벤트같은 이벤트가 없나요?

고수님들의 조언을 부탁합니다.

1  COMMENTS
  • Profile
    류종택 2001.04.14 00:48
    아래 소스를 참고하세요.

    실수로 답변 대신 추천을 눌러버렸네 쫍 --;





    꿈꾸는 바보 류..



    ----------------



    procedure TForm1.FormCreate(Sender: TObject);

    begin

    RadioGroup1.Tag:= RadioGroup1.ItemIndex;

    end;



    procedure TForm1.RadioGroup1Click(Sender: TObject);

    begin

    If RadioGroup1.Tag = RadioGroup1.ItemIndex then Exit;



    If MessageDlg('정말 바꿀거니?', mtConfirmation,

    [mbYes, mbNo], 0) = mrNo then

    Begin

    RadioGroup1.ItemIndex:= RadioGroup1.Tag;

    End;

    RadioGroup1.Tag:= RadioGroup1.ItemIndex;

    end;





    호야 wrote:

    > RadioGroup을 사용하려고 합니다.

    > RadioGroup을 클릭했을때 Index가 바뀌지안고 Index를 바꿀건지를 물어보고

    > Yes라고 하면 바꾸도록 하려고 하는데요.

    > Form에 OnCloseQuery이벤트같은 이벤트가 없나요?

    > 고수님들의 조언을 부탁합니다.