| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
MarcguimDelphi
Novato
Registrado: Segunda-Feira, 23 de Setembro de 2019
Mensagens: 6
|
 Enviada: Sex Nov 08, 2019 7:18 pm Assunto: DBcheckbox não deixar digitar valor meno no edit [Resolvido] |
 |
|
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 |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 2908
Localização: Belo Horizonte - MG
|
| Enviada: Seg Nov 11, 2019 4:19 pm Assunto: |
|
|
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 |
|
|
MarcguimDelphi
Novato
Registrado: Segunda-Feira, 23 de Setembro de 2019
Mensagens: 6
|
| Enviada: Sex Nov 15, 2019 10:09 am Assunto: |
|
|
| perfeito. obrigado |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
