Ver Mensaje Individual
  #10  
Antiguo 10-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Oscar Guzmán Ver Mensaje
...
Como harían Uds. si tuvieran que validar que el mouse no pudiera modificar el una celda, o tal vez como deshabilitar el mouse mientras que estoy dentro del dbgrid? cualquier solución es válida mientras el mouse no me altere lo que tengo en el dbgrid
Hola Oscar.

Un modo puede ser usar el evento OnSetText del campo en cuestión.

Un ejemplo rápido, supongamos que tenemos cuatro campos: Descripcion, Precio, Cantidad y Subtotal.
Y en el TDBGrid las columnas relacionadas a Descripcion, Precio y Subtotal con su propiedad ReadOly = True, de modo que sólo sea posible ingresar datos en la columna asociada al campo Cantidad.

Si nos interesara que el campo Subtotal sea igual a Cantidad * Precio luego de ingresada la cantidad, podemos hacer:
Código Delphi [-]
...
implementation

// Esto lo podes realizar desde el Object Inspector
// si has creado los campos persistentes en el TDataSet
procedure TForm1.DataSetCantidadSetText(Sender: TField;
  const Text: String);
begin
  with DataSet do
  begin
    FieldByName('Cantidad').AsFloat := StrToFloat(Text);
    FieldByName('Subtotal').AsFloat := FieldByName('Cantidad').AsFloat *
      FieldByName('Precio').AsFloat;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  // Siguiente línea innecesaria si el evento fue asignado desde el Object Inspector
  DataSet.FieldByName('Cantidad').OnSetText := DataSetCantidadSetText;
  ...
end;

...
De este modo cuando se abandone una celda de la columna "cantidad" por el motivo que sea, se realizará el cálculo.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita