Buscar por:

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