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
Código:
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