Função para limpar todos Dbedits do form.
Oi gente, Apliquei esta função para quando entrar no form todos dbedit estejam limpos:
.
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.
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.
Peninha
Curtidas 0
Respostas
Adriano Santos
31/03/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.
GOSTEI 0
Paullsoftware
31/03/2006
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:
:wink:
GOSTEI 0