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

[Andrei Luís]

Washington,

1º - Essa pergunta é OFF, pois trata-se de Delphi e não de FireBird.

2º -  Troque a linha TIB_Edit(Components[wlaco]).Enabled:= whabilita;  por
(Components[wlaco] as TIB_Edit).Enabled:=whabilita;

Deve funcionar.

[]
Andrei


Em 04/10/05, NextCorp Informatica<nextcorp em terra.com.br> escreveu:
> Caros colegas
>
> Tenho um form master-detail e necessito habilitar e desabilitar os campos quando for inserir, alterar e salvar.
> Estou utilizando o metodo abaixo, mas gostaria de utilizar uma funcao onde passe true ou false para enabled, pois assim em cada botao de inserir, alterar ou salvar tenho que colocar a rotina abaixo, oque acaba tendo a mesma rotina varias vezes dentro do mesmo form.
>
> Tentei criar uma funcao F_Habilita(True), mas dá um erro na compilacao no ComponetCount. Se utilizo o for wlaco... dentro de cada botao de inserir, alterar e salvar, funciona normalmente.
>
> function F_Habilita(whabilita)
> for wlaco := 0 to ComponentCount -1 do
>         begin
>              if Components[wlaco] is TIB_Edit then
>                 begin
>                    TIB_Edit(Components[wlaco]).Enabled:= whabilita;
>                 end;
>         end;
>
> Desculpe se não fui muito claro na minha explanação, mas hoje a coisa não está fluindo.
>
> Utilizo IBO, firebird, delphi 5
>
>
> Atenciosamente
>
> Washington A. Müller da Silva
>
> #####################
> NextCorp Informática Ltda
> www.nextcorp.com.br
> nextcorp em terra.com.br
> 0 xx (51)-3589-3690
> ####################
>