Função para limpar todos Dbedits do form.
31/03/2006
0
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
Curtir tópico
+ 0
Responder
Posts
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
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:
:wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)