DBEDIT Inteiro FK

19/03/2013

1

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
Responder

Posts

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,
Responder

21/03/2013

Antônio Neto

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

Muito obrigado

neto

Resolvido
Responder

02/04/2013

José

obrigado pelo retorno.
Sendo assim, estou marcando este tópico como resolvido.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira