Liberar botão ao alterar qualquer DBEdit
07/07/2004
0
Boa Noite a todos
HEHE, meu primeiro post...
Seguinte, queria saber se alguem tem alguma sugestão para: quando o usuário alterar qualquer um dos DBEdit do meu formulário o botão salvar seja liberado.
Por enquanto é só isso...
Agradeço a atenção
HEHE, meu primeiro post...
Seguinte, queria saber se alguem tem alguma sugestão para: quando o usuário alterar qualquer um dos DBEdit do meu formulário o botão salvar seja liberado.
Por enquanto é só isso...
Agradeço a atenção
Wart
Curtir tópico
+ 0
Responder
Posts
07/07/2004
Minuto
procedure Tfrmaluno.ds1StateChange(Sender: TObject);
begin
if ds1.State in [dsinsert,dsedit] then
begin
btprocurar.Enabled:=false ;
btnovo.Enabled:=false ;
btexcluir.Enabled:=false;
btgravar.Enabled:=true;
end else
begin
btprocurar.Enabled:=true ;
btnovo.Enabled:=true ;
btexcluir.Enabled:=true;
btgravar.Enabled:=false;
end;
begin
if ds1.State in [dsinsert,dsedit] then
begin
btprocurar.Enabled:=false ;
btnovo.Enabled:=false ;
btexcluir.Enabled:=false;
btgravar.Enabled:=true;
end else
begin
btprocurar.Enabled:=true ;
btnovo.Enabled:=true ;
btexcluir.Enabled:=true;
btgravar.Enabled:=false;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)