vms Postado Junho 23, 2007 Denunciar Share Postado Junho 23, 2007 ola pessoal, seguinteusei este codigo para fazer uma busca em uma coluna de tabelaprocedure TForm1.Edit1Change(Sender: TObject);beginDataModule1.TPortugues_Ingles.FindNearest([Edit1.Text]);end;deu certo, mas o edit vem com esse nome "Edit1" como faço para oculta essa palavra ao abrir o formDET: já tentei usar este comando e não deu certoprocedure TForm1.FormCreate(Sender: TObject);beginedit1.Text:=' ';end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.Text:=hide;end;qualquer alteração que faço dar erro no comando de busca Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Pirambu! Postado Junho 23, 2007 Denunciar Share Postado Junho 23, 2007 vms, quando você adicionar um edit, vá na propriedade e procure por "text" lá terá escrito "Edit" você deve apenas apagar.valeu. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Junho 24, 2007 Denunciar Share Postado Junho 24, 2007 vms, quando você adicionar um edit, vá na propriedade e procure por "text" lá terá escrito "Edit" você deve apenas apagar.valeu.OpaÉ e também só pra completar façaif (Edit1.Text <> '') thenDataModule1.TPortugues_Ingles.FindNearest([Edit1.Text]);assim somente a pesquisa é feita se há texto no edit :rolleyes:abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 vms Postado Junho 25, 2007 Autor Denunciar Share Postado Junho 25, 2007 valeu galera, deu certo Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
vms
ola pessoal, seguinte
usei este codigo para fazer uma busca em uma coluna de tabela
procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.TPortugues_Ingles.FindNearest([Edit1.Text]);
end;
deu certo, mas o edit vem com esse nome "Edit1"
como faço para oculta essa palavra ao abrir o form
DET: já tentei usar este comando e não deu certo
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=' ';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=hide;
end;
qualquer alteração que faço dar erro no comando de busca
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.