| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
agnaldoneves
Novato
Registrado: Domingo, 25 de Setembro de 2011
Mensagens: 38
|
 Enviada: Qui Out 20, 2011 3:50 pm Assunto: Desabilitar e Habilitar TDBRadioGroup (RESOLVIDO) |
 |
|
tenho dois TDBRadioGroup. Gostaria de deixar desabilitado um conforme o outro.
rdgTipoPgt
(Avista : Values: V)
(30Dias: Values: T)
( 30/60Dias: Values: S)
++++++++++++++++++++++++++++++
rdgFormaPgt
(Dinheiro: Values:D)
(BOLETO:Values:B)
(CARTÃO:Values:R)
(CHEQUE:Values:C)
++++++++++++++++++++++++++++++++++
???Gostaria que quando :
(Avista:Values:V)
DESABILITADO:(BOLETO:Value:B)
HABILITADO: (CARTÃO:Values:R) (CHEQUE:Values:C) (Dinheiro: Values:D)
OU
(30Dias: Values: T)
( 30/60Dias: Values: S)
DESABILITADO(CARTÃO:Values:R) (CHEQUE:Values:C) (Dinheiro: Values:D)
HABILITADO: (BOLETO:Values:B)
Obrigado, sou novato
Editado pela última vez por agnaldoneves em Qui Out 20, 2011 5:31 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
Anderson_bnu
Novato
Registrado: Terça-Feira, 16 de Agosto de 2011
Mensagens: 20
|
| Enviada: Qui Out 20, 2011 4:58 pm Assunto: Re: Desabilitar e Habilitar TDBRadioGroup |
|
|
| Código: | if rdgTipoPgt.ItemIndex = 0 then
begin
rdgFormaPgt.Controls[1].Enabled := False;
end; |
Espero ter ajudado,
Valeu
| agnaldoneves escreveu: |
tenho dois TDBRadioGroup. Gostaria de deixar desabilitado um conforme o outro.
rdgTipoPgt
(Avista : Values: V)
(30Dias: Values: T)
( 30/60Dias: Values: S)
++++++++++++++++++++++++++++++
rdgFormaPgt
(Dinheiro: Values:D)
(BOLETO:Values:B)
(CARTÃO:Values:R)
(CHEQUE:Values:C)
++++++++++++++++++++++++++++++++++
???Gostaria que quando :
(Avista:Values:V)
DESABILITADO:(BOLETO:Value:B)
HABILITADO: (CARTÃO:Values:R) (CHEQUE:Values:C) (Dinheiro: Values:D)
OU
(30Dias: Values: T)
( 30/60Dias: Values: S)
DESABILITADO(CARTÃO:Values:R) (CHEQUE:Values:C) (Dinheiro: Values:D)
HABILITADO: (BOLETO:Values:B)
Obrigado, sou novato |
|
|
| Voltar ao Topo |
|
|
agnaldoneves
Novato
Registrado: Domingo, 25 de Setembro de 2011
Mensagens: 38
|
| Enviada: Qui Out 20, 2011 5:22 pm Assunto: Desculpe-me não me lembro como salvar no banco |
|
|
Obrigado, Funcionou bem
Mas agora tenho que salvar no banco.
Sou novato.
| Código: | rocedure TfrmVendas.rdgTipoPgtChange(Sender: TObject);
begin
inherited;
if rdgTipoPgt.ItemIndex = 0 then
begin
rdgFormaPgt.Controls[0].Enabled := True;
rdgFormaPgt.Controls[1].Enabled := False;
rdgFormaPgt.Controls[2].Enabled := True;
rdgFormaPgt.Controls[3].Enabled := True;
end
else
if rdgTipoPgt.ItemIndex = 1 then
begin
rdgFormaPgt.Controls[0].Enabled := False;
rdgFormaPgt.Controls[1].Enabled := True;
rdgFormaPgt.Controls[2].Enabled := False;
rdgFormaPgt.Controls[3].Enabled := False;
end
else
if rdgTipoPgt.ItemIndex = 2 then
begin
rdgFormaPgt.Controls[0].Enabled := False;
rdgFormaPgt.Controls[1].Enabled := True;
rdgFormaPgt.Controls[2].Enabled := False;
rdgFormaPgt.Controls[3].Enabled := False;
end;
end;
|
|
|
| Voltar ao Topo |
|
|
agnaldoneves
Novato
Registrado: Domingo, 25 de Setembro de 2011
Mensagens: 38
|
| Enviada: Qui Out 20, 2011 5:32 pm Assunto: |
|
|
Obrigado amigo Anderson.
Não precisa salvar em BD.
Já resolveu... |
|
| Voltar ao Topo |
|
|
Anderson_bnu
Novato
Registrado: Terça-Feira, 16 de Agosto de 2011
Mensagens: 20
|
| Enviada: Sex Out 21, 2011 8:13 am Assunto: |
|
|
| agnaldoneves escreveu: | Obrigado amigo Anderson.
Não precisa salvar em BD.
Já resolveu... |
Disponha, ate mais
Valeu |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
