[firebase-br] Como habilitar campos TIB_Edit ????

eder paz eder.firebird em gmail.com
Ter Out 4 18:22:57 -03 2005


si eu entendi sua nescessidade acho que uma procedure resolve seu problema e
é isto que uso por aqui ..
 // procedure para desabilitar botões e Dbedits
procedure Desabilita(Sender: TObject);
begin
// Botões
* F_Clientes.BtSalvar.Enabled:=True;
F_Clientes.BtCancelar.Enabled:=True;
F_Clientes.BtPesquisar.Enabled:=False;
F_Clientes.Btnav.Enabled:=False;
F_Clientes.BtNovo.Enabled:=False;
F_Clientes.BtAlterar.Enabled:=False;
F_Clientes.BtExcluir.Enabled:=False;
F_Clientes.BtSair.Enabled:=False;
F_Clientes.BtDependentes.Enabled:=False;
F_Clientes.BtRecados.Enabled:=False;
F_Clientes.EditNome.Enabled:=True;
F_Clientes.EditCodigo.Enabled:=True;*
*end;*
 // procedure para habilitar
*procedure habilita(Sender: TObject);
begin
F_Clientes.BtSalvar.Enabled:=False;
F_Clientes.BtCancelar.Enabled:=False;
F_Clientes.BtPesquisar.Enabled:=True;
F_Clientes.Btnav.Enabled:=True;
F_Clientes.BtNovo.Enabled:=True;
F_Clientes.BtAlterar.Enabled:=True;
F_Clientes.BtExcluir.Enabled:=True;
F_Clientes.BtSair.Enabled:=True;
F_Clientes.BtDependentes.Enabled:=True;
F_Clientes.BtRecados.Enabled:=True;
F_Clientes.EditNome.Enabled:=False;
F_Clientes.EditCodigo.Enabled:=False;*
*end;*
 // BT = Botões
 Apos a declaração da Procedure é só chama-la
em algum evento
exemplo
 *procedure TF_Clientes.BtNovoClick(Sender: TObject);
begin
Desabilita(sender); *
*end;*
 Espero ter ajudado ....
 Eder na Paz
[]'s



Mais detalhes sobre a lista de discussão lista