delphi 7 teclar enter e selecionar

09/01/2020

11

o que faço para quando apertar enter no dbgrid ele pegar i item selecionado e jogar para um tedit?
Responder

Posts

09/01/2020

Gf

No OnKeyPress do Grid:

if Key = #13 then

begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;


Somente adaptar ao que precisa! Abs.
Responder

09/01/2020

Lucas

No OnKeyPress do Grid:

if Key = #13 then

begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;


Somente adaptar ao que precisa! Abs.


Não deu certo n
Responder

09/01/2020

Gf

O ideal seria vc analisar certinho pra entender e adaptar ao que deseja, ou pesquisar na net, pq tem mt exemplo disso ai. (y)
Responder

09/01/2020

P2

Está usando o dbgrid ou cxgrid?
Realize as verificações
Tabela ativa
Quantidade de registros e conteúdo do campo

if Key = #13 then
begin
if (AdoQuery1.active=true) and (AdoQuery1.recordcount>0) and (AdoQuery1.AdoQuery1.FieldByName('campo').AsString<>'') then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
end;
Responder
no on key down do DBGrid
faça:

case key of:
vk_return:
begin
Edit1.text := ADOQuery1.FieldByName('Campo').asString;
end;

Espero ter ajudado.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar