(Resolvido) Trabalhando com RadioGroup

[Rajare]

Bom Dia.

Eu tenho dois RadioGroup nomeados de: dbrg_Turma e dbrg_Ano;

E dois dbedit nomeado de db_Evento e db_Local.

dbrg_turma tenho: dbrg_Ano db_Evento db_Local

( ) Turma A ( ) 1º Ano [_________] [________]

( ) Turma B ( ) 2º Ano

( ) Evento ( ) Outros

Quero uma função que:

quando clico em (x) Turma A : Ele automaticamente selecionaria (x) 1º Ano.

Ou,

quando clico em (x) Evento : Ele automaticamente seleciona-se (x) Outros e usa-se um SetFocus para o db_Evento, e quando desse um enter iria para db_Local.

alguém pode me ajudar?

Editado Março 6, 2009 por Rajare

[Micheus]

Eu tenho dois RadioGroup nomeados de: dbrg_Turma e dbrg_Ano;

:

:

Quero uma função que:

quando clico em (x) Turma A : Ele automaticamente selecionaria (x) 1º Ano.

Ou,

quando clico em (x) Evento : Ele automaticamente seleciona-se (x) Outros

Rajare, o TRadioGroup só permite a seleção de um item de cada vez - é a finalidade deste tipo de componente. Então, não tem como você fazer isto que você quer, uma vez que ambos itens estão no mesmo radio group. Mas...

Sabendo disto, você pode implementar algum meio de contornar esta situação. Basta você entender que pode usar os componentes TRadioButton e que quando você coloca mais que um em um mesmo componente (TGroupBox, TPanel, TForm, ...), eles comportam-se como se fosse um TRadioGroup e operam juntos.

Dependendo de como vai funcionar a lógica total destes seus botões, você poderia colocar no form um TGroupBox; dentro dele dois TPanel (um ao lado do outro), sendo o primeiro a coluna onde estará as Turmas e evento e na segunda coluna estarão os outros itens. Voce terá que verificar qual o radio button está selecionado através da propriedade Checked de cada um deles. Para monitorar quando um deles é pressionado, você usa o evento OnClick (você pode usar um evento para cada grupo - não precisa ser para cada radio button).

Abraços

[Rajare]

Eu tava pesquisando e encontrei esse comando

procedure TForm1.dbrg_TurmaChange(Sender: TObject);

begin

Case dbrg_Turma.ItemIndex of

0: dbrg_Ano.ItemIndex := 0;

1: dbrg_Ano.ItemIndex := 1;

2: dbrg_Ano.ItemIndex := 2;

end;

end;

E funcionou, porém não consigo add os set focus junto com esse comando.

Da uma olhadinha e vê se seria possivel.

[Micheus]

procedure TForm1.dbrg_TurmaChange(Sender: TObject);
begin
  Case dbrg_Turma.ItemIndex of
    0: dbrg_Ano.ItemIndex := 0;
    1: dbrg_Ano.ItemIndex := 1;
    2: dbrg_Ano.ItemIndex := 2;
  end;
end;

E funcionou, porém não consigo add os set focus junto com esse comando.

Da uma olhadinha e vê se seria possivel.

Rajare, se você entendeu o que este "comando" faz, deve ter observado que ele ocorre quando há uma mudança no groupbox da primeira coluna. O que você quer fazer, dar foco aos edits, irá ocorrer quando houver uma mudança no groupbox da segunda coluna e quando o item selecionado for o correspondente a Outros - a idéia é bem similar a esta que você implementou, apenas que irá mexer com o foco de outro componente.

Veja se consegue implementar.

Abraços

p.s.: não sofra com uso de formatações ao postar o código com "sintax highlight - apenas use a tag CODE ali da barrinha de botões. ;)

[Rajare]

Fiz o Seguinte.

begin
Case dbrg_Turma.ItemIndex of
  2: dbrg_Ano.ItemIndex := 2;

end;
If dbrg_Turma.ItemIndex = 2 then
    db_Evento.SetFocus;

end;

Fiz isso e funcionou.

Eu gostaria de aprender mais sobre Case ...of, if ... then, sabes onde tem um bom tutorial?

Gostaria de saber como eles são reconhecidos pelo Delphi exemplo: "if" se não me engano é "se", e se existe outros desse códigos?

Valeu pela Força, se você permitir posso colocar esse post como resolvido.

Abraços,

Rajare

[Micheus]

Fiz o Seguinte.

begin
Case dbrg_Turma.ItemIndex of
  2: dbrg_Ano.ItemIndex := 2;

end;
If dbrg_Turma.ItemIndex = 2 then
    db_Evento.SetFocus;

end;

Fiz isso e funcionou.

Case dbrg_Turma.ItemIndex of
  2: begin
        dbrg_Ano.ItemIndex := 2;
        db_Evento.SetFocus;
      end;
end;

Faça assim que ficará mais apropriado - não tem porque você testar uma variável/propriedade com um mesmo valor duas vezes. ;) Como qualquer outra estrutura lógica, você pode usar o demarcador de blocos (begin..end) e executar várias tarefas em cada condição.

Eu gostaria de aprender mais sobre Case ...of, if ... then, sabes onde tem um bom tutorial?

não saberia indicar não. Procure por apostilas sobre delphi básico que deverá aparecer algo a respeito. Mas, se não tiver problemas com inglês, use o help - é muito bom. Por hora fica este link com exemplos.

Gostaria de saber como eles são reconhecidos pelo Delphi exemplo: "if" se não me engano é "se", e se existe outros desse códigos?

resumidamente...

if <condição verdadeira> then  ... else ...
se <condição verdadeira> então ... senão ...

case <expressão seletora> of
  <valor1>
  <valor2>
  ...
  else
end;
caso <expressão seletora> "seja"
  <valor1>
  <valor2>
  ...
  senão
end

se você permitir posso colocar esse post como resolvido.

fique a vontade. Siga o que deveria ser o padrão e acrescente (Resolvido) na frente do título atual. ;)

Abraços

[Jhonas]

Eu gostaria de aprender mais sobre Case ...of, if ... then, sabes onde tem um bom tutorial?

Neste endereço livro completo do delphi 5 em portugues

http://www.scribd.com/doc/7085788/Guia-Do-...ivro-CompletoBR

abraço

[Rajare]

Vou Seguir o seu conselho Micheus

Case dbrg_Turma.ItemIndex of

2: begin

dbrg_Ano.ItemIndex := 2;

db_Evento.SetFocus;

end;

Funcinou direitinho.

Valeu Jhonas pelo tutorial

Que Deus abençoe vocês.

Editado Março 6, 2009 por Rajare