Buscar

Limpar e Desabilitar vários campos de um vez.

Código

************Limpar todos campos dentro de um form**********************

Procedure TFormAtendimento.Limpar_Campo();
begin
  for i := 0 to ControlCount - 1 do
    begin
      if(Controls[i] is TEdit) then
        TEdit(Controls[i] as TEdit).Text := ''
      else
        if(Controls[i] is TComboBox) then
          TComboBox(Controls[i] as TComboBox).Text := ''
      else
        if(Controls[i] is TMaskEdit) then
          TMaskEdit(Controls[i] as TMaskEdit).Text := ''
      else
        if(Controls[i] is TMemo) then
          TMemo(Controls[i] as TMemo).Text := ''
    end;
end;

**********Limpar todos campos dentro de um outro componente*************

Procedure TFormAtendimento.Limpar_Campo();
begin
  for i:= 0 to GroupBox.ControlCount -1 do    
  begin
      if(GroupBox.Controls[i] is TEdit) then
        TEdit(GroupBox.Controls[i] is as TEdit).Text := ''
      else
        if(GroupBox.Controls[i] is TComboBox) then
          TComboBox(GroupBox.Controls[i] as TComboBox).Text := ''
      else
        if(GroupBox.Controls[i] is TMaskEdit) then
          TMaskEdit(GroupBox.Controls[i] as TMaskEdit).Text := ''
      else
        if(GroupBox.Controls[i] is TMemo) then
          TMemo(GroupBox.Controls[i] as TMemo).Text := ''
  end;
end;

*************Desabilitar todos os campos dentro de um componente***********
for i:= 0 to GroupBox4.ControlCount -1 do
  GroupBox4.Controls[i].Enabled := false;


*************Desabilitar todos os campos dentro de um formulário***********

for i:= 0 to ControlCount -1 do
  Controls[i].Enabled := false;


Espero ter ajudado muitas pessoas.

Qualquer dúvida me enviem um email fitlcarlos@gmail.com

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 24/10/09
Por: Carlos Alberto Fitl
Visualizada: 5975 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009