Função para limpar todos Dbedits do form.

31/03/2006

Oi gente, Apliquei esta função para quando entrar no form todos dbedit estejam limpos:
procedure TFrm_Principal.FormActivate(Sender: TObject);
Var 
  Limp:integer;
begin   
 For Limp:= 0 To ComponentCount -1 DO   
   IF  Components[Maic&93; Is TDbEdit Then   
      (Components&91;Maic&93; as TDbedit).Clear;  
       Dbedit1.Text:= TRim(Dbedit1.Text);  
       Dbedit1.SetFocus;
end;

.

Mas quando entro no form o número 1 no campo Dbedit1, que é o Dbedit do Código do Cliente fica
aparecendo o número um e se vou passando por cada Dbedit vai aparecendo o conteudo de cada campo nos dbedits, porque isto esta acontecendo?
Me ajudem, por favor.


Peninha

Respostas

31/03/2006

Adriano Santos

Pq os DBEcits estão linkandos na tabela/query e provavelmente a mesma encontra-se aberta. Essa é a característica dos componentes DataWare, DBEdit, DBCombobox e etc.


Responder Citar

31/03/2006

Paullsoftware

se não quer mostrar os dados dos DbEdits no Evento OnShow do form feche a sua tabela colocando [b:4ad7ce2a68]Tabela.Close;[/b:4ad7ce2a68], mais lembre-se que fazendo isso todos os componentes ligados a ela serão desativados...
:wink:


Responder Citar