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:
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

Peninha

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:


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar