Ir para conteúdo
Fórum Script Brasil
  • 0

Listar todos os componentes no form


Ronaldo Lanhellas

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

bom dia, supondo que você tem Edit's, Label's, Memo's... tente assim:

procedure Desabilita_Campos;
var
  X: Integer;
begin
  for x := 0 to FrmTal.ComponentCount - 1 do
    if FrmTal.Components[X] is TEdit then
      TEdit(FrmTal.Components[X]).Enabled:= false
    else if FrmTal.Components[X] is TLabel then
      TLabel(FrmTal.Components[X]).Enabled:= false
    else if FrmTal.Components[X] is TMemo then
      TMemo (FrmTal.Components[X]).Enabled:= false
end;

você pode também, criar uma procedure chamada Habilita_Campos, para setar o Enabled:= true... assim, você pode habilitar tudo e/ou desabilitar tudo quando precisar...

Link para o comentário
Compartilhar em outros sites

  • 0

Ou simplesmente usar a mesma função passando parametros:

procedure Controle_Campos(Ativo : Boolean);
var
  X: Integer;
begin
  for x := 0 to frmTal.ComponentCount - 1 do
    if frmTal.Components[X] is TEdit then
      TEdit(frmTal.Components[X]).Enabled:= Ativo
    else if frmTal.Components[X] is TLabel then
      TLabel(frmTal.Components[X]).Enabled:= Ativo
    else if frmTal.Components[X] is TMemo then
      TMemo (frmTal.Components[X]).Enabled:= Ativo
end;

Para Ativar:

Controle_Campos(True);

Para Desativar:

Controle_Campos(False);

Abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...