Usar 3 DBRadioGroup e somente uma sele��o

Question

tenho 3 DBRadioGroup em somente um campo, ficou assim..no primeiro ficou assim:----Aguardando-----* Laudo* Pe�as-----------------------depois----Consertado------* Aguardando pe�as* Aguardando reirada-...

Marcio.theis · Answer

Todos os 3 DBRadioGroup est�o ligados ao mesmo campo da base de dados ???...

Emerson Nascimento · Answer

automaticamente, creio que n�o.mas voc� poderia criar uma procedure como essa:[code:1:c27b9b58eb]procedure TForm1.RadioGroup_Click(Sender: TObject);  function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant;  begin    if Condicao    then Result := Verdadeiro    else Result := Falso;  end;begin  RadioGroup_Aguardando.ItemIndex := iif(Sender=RadioGroup_Aguardando,RadioGroup_Aguardando.ItemIndex,-1);  RadioGroup_Consertado.ItemIndex := iif(Sender=RadioGroup_Consertado,RadioGroup_Consertado.ItemIndex,-1);  RadioGroup_NaoConsert.ItemIndex := iif(Sender=RadioGroup_NaoConsert,RadioGroup_NaoConsert.ItemIndex,-1);end;[/code:1:c27b9b58eb]e apontar o evento OnClick dos tr�s RadioGroup para ela....

Gigatel · Answer

[quote:3fdeb0b2f5=�/]/]@t�]Todos os 3 DBRadioGroup est�o ligados ao mesmo campo da base de dados ???[/quote:3fdeb0b2f5]

Sim...

tem ficar separado, o banco de dados s� vai recer a informa��o do de qual qual est� checado....

Gigatel · Answer

[quote:91f7abecd2=�emerson.en�]automaticamente, creio que n�o.mas voc� poderia criar uma procedure como essa:[code:1:91f7abecd2]procedure TForm1.RadioGroup_Click(Sender: TObject);  function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant;  begin    if Condicao    then Result := Verdadeiro    else Result := Falso;  end;begin  RadioGroup_Aguardando.ItemIndex := iif(Sender=RadioGroup_Aguardando,RadioGroup_Aguardando.ItemIndex,-1);  RadioGroup_Consertado.ItemIndex := iif(Sender=RadioGroup_Consertado,RadioGroup_Consertado.ItemIndex,-1);  RadioGroup_NaoConsert.ItemIndex := iif(Sender=RadioGroup_NaoConsert,RadioGroup_NaoConsert.ItemIndex,-1);end;[/code:1:91f7abecd2]e apontar o evento OnClick dos tr�s RadioGroup para ela.[/quote:91f7abecd2]Ficou assim...[code:1:91f7abecd2]procedure T_FORM_OS_AND.RadioGroup_Click;  function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant;  begin    if Condicao    then Result := Verdadeiro    else Result := Falso;  end;begin  DBRadioGroup1.ItemIndex := iif(Sender=DBRadioGroup1,DBRadioGroup1.ItemIndex,-1);  DBRadioGroup2.ItemIndex := iif(Sender=DBRadioGroup2,DBRadioGroup2.ItemIndex,-1);  DBRadioGroup3.ItemIndex := iif(Sender=DBRadioGroup3,DBRadioGroup3.ItemIndex,-1);end;[/code:1:91f7abecd2]m�s d� este erro[code:1:91f7abecd2]&#91;Error&93; Unit10.pas(49): Undeclared identifier: �Sender�[/code:1:91f7abecd2]tem declarar esta v�ri�vel ?...

Emerson Nascimento · Answer

repare bem no cabe�alho da procedure que eu te passei e da procedure que voc� criou....

Gigatel · Answer

[quote:557001c1f9=�emerson.en�]repare bem no cabe�alho da procedure que eu te passei e da procedure que voc� criou.[/quote:557001c1f9]Valew..corrig�...agora deu certo...e ficou muito bom...vlw obrigad�o...t+ flw......