Código Delphi [-] procedure TFrmInterfaz.DBGEntradaDblClick(Sender: TObject); var Paquete : Integer; begin if not InterfEntrada.IsEmpty then begin Paquete := InterfEntrada.FieldValues['Paq_Id']; MostrarPaquete(Paquete); end; end;
procedure TFrmInterfaz.DBGEntradaDblClick(Sender: TObject); var Paquete : Integer; begin if not InterfEntrada.IsEmpty then begin Paquete := InterfEntrada.FieldValues['Paq_Id']; MostrarPaquete(Paquete); end; end;