procedure TfShareReg.dbgUsageCellClick(Column: TColumn);beginShowMessage('pirate 1');If Column.FieldName = 'Estimate' then begin ShowMessage('pirate 2'); qUsage.Active:=true; qUsage.Edit; ShowMessage('pirate 3'); if Column.Field.OldValue = 0 then begin //do estimate showmessage('make an estimate'); Column.Field.NewValue := 1; end {do estimate} else begin {undo estimate} showmessage('put it back'); Column.Field.Value:=0; end; {undo estimate} qUsage.ApplyUpdates; end;end;
qUsage.Close; qUsage.Params.ParamByName('paramShare').AsString:=dbtxtShareNo.Caption; qUsage.Open;