OnDblClick de uma DBGrid para varios form

[anabon]

Olá pessoal, boa tarde!

Mas uma vez peço a ajuda de vocês!! Não tenho muita pratica em delphi, e peço desculpa se a resposta for muito obvia.....

Bem eu tenho um form com um dbgrid e a ideia é colocar um botão em alguns form de cadastro dar um duplo click no dbgrid e ele retornar o valor da coluna selecionada para as dbedit... até ai tdo bem qr dizer até o 2° form esta tdo bem ... agora ta dando erro ..

No VB quando eu tinha certeza do coigo que eu estav usando colocava nessas situação um On Error Next; no delphi tentei colocar um bloco try mas continuo dando erro....

o Codigo que estou usando é:

procedure TFormVeiculo.DBGridVeiculoDblClick(Sender: TObject); 
begin 
try 
FormEntregador.Edit1.Text := DBGridVeiculo.Fields[0].AsString; 
FormEntregador.Edit2.Text := DBGridVeiculo.Fields[2].AsString; 
Close; 

FormMov_Produto.DBEditCodigo_Veiculo1.Text := DBGridVeiculo.Fields[0].AsString; 
FormMov_Produto.DBEditVeiculo1.Text := DBGridVeiculo.Fields[2].AsString; 
Close; 

FormControle_Combustivel.DBEditVeiculo_Comb.Text := DBGridVeiculo.Fields[0].AsString; 
FormControle_Combustivel.DBEditPlaca_Comb.Text := DBGridVeiculo.Fields[2].AsString; 
Close; 
except // exceção 


end; 
 end; 

end.

Por Favor alguém pode me ajudar????

desde já agradeço....

Abraço...

[Micheus]

anabon, este seu código está alterando informações de 3 forms ao mesmo tempo - é para ser isto mesmo? Ou deveria alterar apenas o form do qual você chamou este form com o DBGrid que você dá o duplo clique?

[anabon]

É amigo tava mesmo... resolvi o problema com o seguinte codigo

No form entregado que era oque recebe as informação eu coloquei

with TFormVeiculo.Create(Self) do
  begin
    try
      ShowModal;
    finally
      if ModalResult = mrOk then
      begin
        if not(Table_Entregador.State in [dsInsert, dsEdit]) then
          Table_Entregador.Edit;

        Table_Entregador.FieldByName('veiculo').AsString   := Table_Veiculo.FieldByName('codigo').AsString;
        Table_Entregador.FieldByName('Placa').AsString := Table_Veiculo.FieldByName('Placa').AsString;
      end;
    end;
  end;
end;

No OnDblClick do grid onde eu pego a informação eu coloquei assim:

ModalResult := mrOk;

acho que agora ta certo.....

obrigada..... podem fechar o post...

[Micheus]

anabon, funciona sim. Mas, nunca acredite que tudo dará certo.

Sua ação no OnDblClick não prevê que "seu DBGrid" esteja vazio (em algum momento ele pode estar).

Se voce adicionou os fields das tabelas em design-time, dê preferência à usá-los no lugar da chamada ao método FieldByName, tipo:

Table_EntregadorVeiculo.Value := Table_VeiculoCodigo.Value;