Fórum Como desfazer item marcado? #377572

é o mesmo tópico né ??? procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:begin if edit1.Text = 'B' then RadioGroup1.ItemIndex:=1; end; 1:begin if edit1.Text = 'A' then RadioGroup1.ItemIndex:=0; end; end; end;

é o mesmo tópico né ??? procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:begin    if edit1.Text = 'B' then
       RadioGroup1.ItemIndex:=1;
  end;
1:begin     if edit1.Text = 'A' then
       RadioGroup1.ItemIndex:=0;
  end;
end;
end;

Sim Marco, eu criei um tópico com a mesma dúvida em outro forum. É que eu estou com uma certa urgência por isso que precisei fazer isso.
Obrigado por você estar me ajudando!  

Todo o problema ocorre no evento OnClick do componente RadioGroup. Este exemplo simula exatamente o que eu quero, é logico que esta errado, mas a ideia é está:procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   if then
    begin
       // faça algo....
    end
   else
    begin
      case RadioGroup1.ItemIndex of
        0 : RadioGroup1.ItemIndex := 1;
        1 : RadioGroup1.ItemIndex := 0;
      end;
    end;
end; p.ex.: Supondo que no RadioGroup tem dois itens (ItemA e ItemB). Ao iniciar o sistema é marcado o ItemA. Depois o usuário pode trocar a opção marcando o ItemB, mas é neste ponto que entra a questão. No evento OnClick do RadioGroup é verificado uma condição e se for Falso, então, eu não posso deixar que o usuário selecione o item desejado, tenho que eu desfazer o que o usuário fez, marcando o item anterior.
Atenção: Pessoal se houver algum código da VCL que faça com que o item que o usuário selecionou seja "desfeito", ou seja, como se fosse que o usuário marcou o item, mas atraves deste código não permite que este item seja selecionado (marcado). Já resolveria o meu problema, mas como eu não conheço.
Obrigado!

Obrigado a todos eu consegui resolver de outra maneira!