Fórum Botão Alterar #448429
11/07/2013
0
Estava fazendo uns teste e pude verificar o seguinte.
Tenho o botões,Incluir,Alterar,Pesquisar e Excluir no form1.Quando eu clico no botão pesquisar do form1 ele abre o form2 com um grid para fazer as pesquisas.Mas,se eu simplesmente clicar no botão Pesquisar e fechar o form2 sem fazer nenhuma consulta ou algo do tipo.O botão Alterar já ativa.Como faço pra desativar esse botão Alterar quando eu não pesquisar nada, quando eu apenas abrir e fechar o form2.Quero que ele fique ativo só quando eu trazer pros edits as informações para realmente alterar.Alguem Ajuda.Por Favor.
Abraços
Codigo do botão Pesquisar!
procedure TFrm_Cad_Funcionarios.Btn_PesquisarClick(Sender: TObject);
begin
Frm_Pesquisa_Funcionarios.showmodal;
Btn_Excluir.Enabled:=true;
Btn_Gravar.Enabled:=false;
Btn_Alterar.Enabled:=true;
end;
Bruno Henrique
Curtir tópico
+ 0Posts
12/07/2013
Bruno Henrique
Gostei + 0
12/07/2013
Marcos Saffran
sugiro que você crie uma variável global, na qual você informa se foi pesquisado algum registro ou não e então verifica o status dessa variável.
por exemplo:
pesquisado : Boolean; (essa é a variável).
No evento on-show do formulário de pesquisa, coloque a variável como false:
pesquisado := false;
Se no formulário de pesquisa houver alguma pesquisa altere a variável para true:
pesquisado := true;
então altere o procedimento do click do botão pesquisar para:
procedure TFrm_Cad_Funcionarios.Btn_PesquisarClick(Sender: TObject);
begin
Frm_Pesquisa_Funcionarios.showmodal;
Btn_Excluir.Enabled:=true;
Btn_Gravar.Enabled:=false;
if pesquisado then //aqui verifica se foi pesquisado (true = sim, false = não)
Btn_Alterar.Enabled:=true //se foi pesquisado então habilita o botão
else
Btn_Alterar.Enabled:=False; //se não foi pesquisado então não habilita o botão
end;
Gostei + 0
12/07/2013
Bruno Henrique
Valew!!!Nunca imaginei isso!!!Iniciante também!!!rs
Abraços....
RESOLVIDO
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)