delphi 7 teclar enter e selecionar
09/01/2020
0
Lucas
Posts
09/01/2020
Gxf
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
09/01/2020
Lucas
if Key = #13 then
begin
Edit1.Text := AdoQuery1.FieldByName('campo').AsString;
end;
Somente adaptar ao que precisa! Abs.
Não deu certo n
09/01/2020
Gxf
09/01/2020
Raimundo Pereira
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;
15/01/2020
Anderson Gonçalves
faça:
case key of:
vk_return:
begin
Edit1.text := ADOQuery1.FieldByName('Campo').asString;
end;
Espero ter ajudado.
Clique aqui para fazer login e interagir na Comunidade :)