ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

DBcheckbox não deixar digitar valor meno no edit [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
MarcguimDelphi
Novato
Novato


Registrado: Segunda-Feira, 23 de Setembro de 2019
Mensagens: 6

MensagemEnviada: Sex Nov 08, 2019 7:18 pm    Assunto: DBcheckbox não deixar digitar valor meno no edit [Resolvido] Responder com Citação

Galera preciso de ajuda, tenho 4 checkbox, preciso que o usuário não consiga digitar em um edit, um valor menor do que a quantidade de ckeckbox marcados.
Exemplo: se dois estiverem marcados, no edit ele não possa digitar um valor menor que 2.


Editado pela última vez por MarcguimDelphi em Sex Nov 15, 2019 10:10 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 2908
Localização: Belo Horizonte - MG

MensagemEnviada: Seg Nov 11, 2019 4:19 pm    Assunto: Responder com Citação

Vamos supor que seus quatro DBCheckbox's estejam com nomes sequenciais: DBCheckbox1, DBCheckbox2, etc:

Exemplo de código no evento OnExit do Edit:

Código:
procedure TForm1.Edit1Exit(Sender: TObject);
var
  qtdeMarcados, i: integer;
begin
  qtdeMarcados := 0;

  for i := 1 to 4 do
    if TDBCheckBox(Self.FindComponent('DBCheckbox' + IntToStr(i))).Checked then
      Inc(qtdeMarcados);

  if StrToInt(Edit1.Text) < qtdeMarcados then
  begin
    Application.MessageBox('Valor não permitido' , 'Erro', MB_OK + MB_ICONERROR);
    Edit1.Clear;
  end;
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
MarcguimDelphi
Novato
Novato


Registrado: Segunda-Feira, 23 de Setembro de 2019
Mensagens: 6

MensagemEnviada: Sex Nov 15, 2019 10:09 am    Assunto: Responder com Citação

perfeito. obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB