Fórum Criar uma Funcao abilitar Edit #144604
12/03/2003
0
Gostaria de fazer uma funcao que service para todos os meus formularios.
Quero ativar/desativar os campos Edit, mas para isso tenho que colocar o nome do formulario que esta ativo, e nao consigo.
Exemplo que eu fiz.
For nCont := 0 to NomeFormulario.ComponentCount -1 do
If NomeFormulario.Components[ nCont ] is TDBEdit Then
TDBEdit( NomeFormulario.Components[ nCont ] ).Enabled := True;
O problema esta no NOMEFORUMULARIO, na passagem de parametros pela funcao ela nao aceita.
Atenciosamente,
Andre
Quero ativar/desativar os campos Edit, mas para isso tenho que colocar o nome do formulario que esta ativo, e nao consigo.
Exemplo que eu fiz.
For nCont := 0 to NomeFormulario.ComponentCount -1 do
If NomeFormulario.Components[ nCont ] is TDBEdit Then
TDBEdit( NomeFormulario.Components[ nCont ] ).Enabled := True;
O problema esta no NOMEFORUMULARIO, na passagem de parametros pela funcao ela nao aceita.
Atenciosamente,
Andre
A.fracassi
Curtir tópico
+ 0
Responder
Posts
12/03/2003
Nildo
Não precisa passar como parametro. Se voce fosse passar como parametro, deveria ter um VAR na frente. Exemplo:
procedure Habilita(var formulario: TForm);
Mas voce pode fazer assim:
procedure Habilita;
begin
For nCont := 0 to Screen.activeForm.ComponentCount -1 do
If Screen.activeForm.Components[ nCont ] is TDBEdit Then
TDBEdit( Screen.activeForm.Components[ nCont ] ).Enabled := True;
end;
Qualquer duvida, pergunte !
t+
procedure Habilita(var formulario: TForm);
Mas voce pode fazer assim:
procedure Habilita;
begin
For nCont := 0 to Screen.activeForm.ComponentCount -1 do
If Screen.activeForm.Components[ nCont ] is TDBEdit Then
TDBEdit( Screen.activeForm.Components[ nCont ] ).Enabled := True;
end;
Qualquer duvida, pergunte !
t+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)