delphi 7 teclar enter e selecionar
o que faço para quando apertar enter no dbgrid ele pegar i item selecionado e jogar para um tedit?
Lucas
Curtidas 0
Respostas
Gxf
09/01/2020
No OnKeyPress do Grid:
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
GOSTEI 0
Lucas
09/01/2020
No OnKeyPress do Grid:
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
Não deu certo n
GOSTEI 0
Gxf
09/01/2020
O ideal seria vc analisar certinho pra entender e adaptar ao que deseja, ou pesquisar na net, pq tem mt exemplo disso ai. (y)
GOSTEI 0
Raimundo Pereira
09/01/2020
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;
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;
GOSTEI 0
Anderson Gonçalves
09/01/2020
no on key down do DBGrid
faça:
case key of:
vk_return:
begin
Edit1.text := ADOQuery1.FieldByName('Campo').asString;
end;
Espero ter ajudado.
faça:
case key of:
vk_return:
begin
Edit1.text := ADOQuery1.FieldByName('Campo').asString;
end;
Espero ter ajudado.
GOSTEI 0