Array
(
)

Função para limpar todos Dbedits do form.

Peninha
   - 31 mar 2006

Oi gente, Apliquei esta função para quando entrar no form todos dbedit estejam limpos:
#Código

procedure TFrm_Principal.FormActivate(Sender: TObject);
Var
Limp:integer;
begin
For Limp:= 0 To ComponentCount -1 DO
IF Components[Maic] Is TDbEdit Then
(Components[Maic] 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.


Adriano Santos
   - 31 mar 2006

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.


Paullsoftware
   - 31 mar 2006

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