Pressionar enter e levar dados para outra tabela
Colegas,
coloquei o codigo abaixo para que ao pressionar a tecla Enter levar da tabela atividade o registro selecionado em um dbgrid para outro formulário na tabela Cadastro, so que não está funcionando, o que está faltando , se alguém puder ajudar ficarei grato.
procedure TfmAtividade2.DBGrid1OnKeyPress(Sender: TObject);
begin
if Assigned(fmCadastro) then //testa se o Form2 esta criado.
begin
fmCadastro.DBEdit3.DataSource.DataSet.FieldByName(´Atividade´).Value := DBGrid1.DataSource.DataSet.FieldByName(´Atividade´).Value;
fmCadastro.DBEdit3.SetFocus;
close;
end;
end;
end.
coloquei o codigo abaixo para que ao pressionar a tecla Enter levar da tabela atividade o registro selecionado em um dbgrid para outro formulário na tabela Cadastro, so que não está funcionando, o que está faltando , se alguém puder ajudar ficarei grato.
procedure TfmAtividade2.DBGrid1OnKeyPress(Sender: TObject);
begin
if Assigned(fmCadastro) then //testa se o Form2 esta criado.
begin
fmCadastro.DBEdit3.DataSource.DataSet.FieldByName(´Atividade´).Value := DBGrid1.DataSource.DataSet.FieldByName(´Atividade´).Value;
fmCadastro.DBEdit3.SetFocus;
close;
end;
end;
end.
Clenio
Curtidas 0
Respostas
Gildo_araujo
13/09/2003
Tente validar a tecla pressiona
if key=#13 then begin //ENTER
corpo
end;
if key=#13 then begin //ENTER
corpo
end;
GOSTEI 0
Clenio
13/09/2003
Gildo valeu pela atenção, mas ja tentei validar com
if key=#13 then
mas tambem nao deu certo.
se alguem souber uma outra forma por favor ajude.
if key=#13 then
mas tambem nao deu certo.
se alguem souber uma outra forma por favor ajude.
GOSTEI 0