DELPHI 7 - SELEÇÃO DE RADIOGROUP
Fala galera, tem como limitar uma opção só no radiogroup?
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Yago Centenaro
Curtidas 0
Melhor post
Nomad
24/01/2020
Fala galera, tem como limitar uma opção só no radiogroup?
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Cara, por padrão o RadioGroup já permite selecionar apenas uma opção... A dúvida é em como chamar o próximo Form?
GOSTEI 1
Mais Respostas
Fernando Ito
24/01/2020
Fala galera, tem como limitar uma opção só no radiogroup?
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Ex: Tenho um Radiogroup, aonde tenho 4 itens nele, sendo alternativa (A) ..... , (B) ...... , (C)..... , (D)......., e queria que a pessoa seleciona-se apenas uma questão e fosse para o próximo FORM. Por quê estou querendo a pessoa selecionar uma questão? É por conta que fiz um procedimento de contagem e cada vez que a pessoa seleciona uma alternativa, é contado 1 ponto e exibido no EDIT. Tenho conhecimentos básicos no delphi e estou querendo criar um quiz que conte os pontos em cada alternativa sendo as erradas 0 e os acertos 1.
Fala Yago, blz?
Vc pode fazer da seguinte maneira no evento onClick do radiogroup:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
// aqui vai seu método para usar um contador para somar os pontos se a pessoa acertar
RadioGroup1.Enabled := False;
// e aqui a chamada para o novo form
end;
Espero ter ajudado, se não for isso, nos passe mais informações de como vc fez a programação para que possamos lhe ajudar melhor ok!
Um Abraço,
ITO
GOSTEI 1
Yago Centenaro
24/01/2020
Como sou novo no Delphi 7, estou seguindo os passos deste site, com a mesma programação. Se puder dar uma olhada.
http://www.cpscetec.com.br/adistancia/jogos_delphi/
Só que o problema é quando a pessoa seleciona uma opção, ela tem como mudar, só que aí fica contando a cada click que a pessoa dá.
E queria que ela pudesse selecionar apenas uma vez que já resolvia o problema.
Mas se quiserem me passar dicas de como eu crio um jogo de perguntas no delphi, vou seguir a dica de vocês, é difícil encontrar alguém que entende como cria um quiz no delphi com quantidade de acertos e erros.
GOSTEI 0
Yago Centenaro
24/01/2020
A minha dúvida é se tem como a pessoa clicar uma vez em uma opção e não ter como desmarcar, para não ficar contando os pontos, por quê fiz uma variável global. Aonde tenho as var: acerto,erro: Integer;
E depois dentro da Datamodule na propriedades events, coloquei que o acerto e erro receberiam valor de 0, para começarem a contar.
meu código está assim:
Begin
If pergunta1.ItemIndex= 2 then
begin
showmessage('Você acertou');
inc(dtm.acertos);
end
else
begin
showmessage('Você errou');
inc(dtm.erros);
end;
edt1.Text:=IntToStr(dtm.acertos);
edt2.Text:=IntToStr(dtm.erros);
end;
E depois dentro da Datamodule na propriedades events, coloquei que o acerto e erro receberiam valor de 0, para começarem a contar.
meu código está assim:
Begin
If pergunta1.ItemIndex= 2 then
begin
showmessage('Você acertou');
inc(dtm.acertos);
end
else
begin
showmessage('Você errou');
inc(dtm.erros);
end;
edt1.Text:=IntToStr(dtm.acertos);
edt2.Text:=IntToStr(dtm.erros);
end;
GOSTEI 0
Nomad
24/01/2020
A minha dúvida é se tem como a pessoa clicar uma vez em uma opção e não ter como desmarcar, para não ficar contando os pontos, por quê fiz uma variável global. Aonde tenho as var: acerto,erro: Integer;
E depois dentro da Datamodule na propriedades events, coloquei que o acerto e erro receberiam valor de 0, para começarem a contar.
meu código está assim:
Begin
If pergunta1.ItemIndex= 2 then
begin
showmessage('Você acertou');
inc(dtm.acertos);
end
else
begin
showmessage('Você errou');
inc(dtm.erros);
end;
edt1.Text:=IntToStr(dtm.acertos);
edt2.Text:=IntToStr(dtm.erros);
end;
E depois dentro da Datamodule na propriedades events, coloquei que o acerto e erro receberiam valor de 0, para começarem a contar.
meu código está assim:
Begin
If pergunta1.ItemIndex= 2 then
begin
showmessage('Você acertou');
inc(dtm.acertos);
end
else
begin
showmessage('Você errou');
inc(dtm.erros);
end;
edt1.Text:=IntToStr(dtm.acertos);
edt2.Text:=IntToStr(dtm.erros);
end;
Verifique se isso te ajuda:
http://www.planetadelphi.com.br/download/4273/arquivo/super-quiz-(jogo)
GOSTEI 1