[rafaelon]

hola a todos , espero me puedan ayudar , tengo un pequeño programa (delphi 7+ access) donde tengo un Dbgrid conectado a una tabla "productos" con un multi select envio las selecciones a un listbox y con un evento cellclick envio a un stringgrid una unica seleccion

procedure TfrmMain.dgProductoCellClick(Column: TColumn);
var
i:double;
x:double;

begin
i:=0;
 buscarcod(dgproducto.SelectedField.AsString, Encontrado);
  if Encontrado then
  begin
    StringGrid1.Cells[0, 1]:=DM.tblProducto.fieldbyname('Producto').AsString;
    StringGrid1.Cells[2, 1]:=DM.tblProducto.fieldbyname('Precio').AsString;
    StringGrid1.Cells[1, 1]:=DM.tblProducto.fieldbyname('Existencia').AsString;
    Edit3.Text:=DM.tblProducto.fieldbyname('tipo').AsString;
    i:=((DM.tblProducto.fieldbyname('precio').asfloat)*(strtofloat(maskedit1.Text)));
    x:= ceil(i);
    StringGrid1.Cells[3, 1]:= (FormatFloat('0.000',  (x)));

  end
end;

Sin embargo ahora me gustaria unir ambos procesos y usar unicamente el stringgrid para mostrar varias selecciones del dbgrid pero con el evento cellclick para no usar la tecla ctrl , gracias de antemano