DBEDIT Inteiro FK

Delphi

19/03/2013

Olá a todos.
Uso DBExpress + Firebird Delphi 2010.

Tenho DBEDIT´s no formulário ligado a campos da tabela e alguns são
chave estrangeira (inteiro) da tabela.

Nestes campos FK preciso permitir que seja possivel digitar a barra normal.
Isso quer dizer ao programa para abrir um formulário de pesquisa
da tabela a qual o campo é relacionado.
A barra será valida (não ficará no DBEDIT) é só um atalho para eu acessar um formulário de pesquisa
e localizar o código desejado.

Não quero usar botões para abrir a pesquisa, gostaria que fosse no próprio DBEDIT.

Como posso fazer isso.

Abraços e antecipadamente agradeço.

Neto
Antônio Neto

Antônio Neto

Curtidas 0

Respostas

Danillo Camargo

Danillo Camargo

19/03/2013

Olá a todos.
Uso DBExpress + Firebird Delphi 2010.

Tenho DBEDIT´s no formulário ligado a campos da tabela e alguns são
chave estrangeira (inteiro) da tabela.

Nestes campos FK preciso permitir que seja possivel digitar a barra normal.
Isso quer dizer ao programa para abrir um formulário de pesquisa
da tabela a qual o campo é relacionado.
A barra será valida (não ficará no DBEDIT) é só um atalho para eu acessar um formulário de pesquisa
e localizar o código desejado.

Não quero usar botões para abrir a pesquisa, gostaria que fosse no próprio DBEDIT.

Como posso fazer isso.

Abraços e antecipadamente agradeço.

Neto


Boa tarde Antônio. Tudo bem?

Acredito que uma solução para o seu problema seja verificar a tecla pressionada no evento "OnKeyPress" do componente "DBEdit".

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = '/' then
 begin
  // Código para abrir formulário de pesquisa.
 end;
end;


Espero ter ajudado,
Qualquer dúvida estou à disposição,
Atenciosamente,
GOSTEI 0
Antônio Neto

Antônio Neto

19/03/2013

Olá..... funciona sim...

Muito obrigado

neto

Resolvido
GOSTEI 0
José

José

19/03/2013

obrigado pelo retorno.
Sendo assim, estou marcando este tópico como resolvido.
GOSTEI 0
POSTAR