Ver Mensaje Individual
  #4  
Antiguo 02-02-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Con un código como este:


Código Delphi [-]
procedure TForm1.cxGrid1DBTableView1Editing(Sender: TcxCustomGridTableView;
  AItem: TcxCustomGridTableItem; var AAllow: Boolean);
var
  ARecordIndex: Integer;
  AValue: Variant;
begin
  if (AItem.Index = cxGrid1DBTableView1dato3.Index) or (AItem.Index = cxGrid1DBTableView1dato5.Index) then
  begin
    ARecordIndex := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
    AValue := cxGrid1DBTableView1.DataController.Values[ARecordIndex, cxGrid1DBTableView1dato2.Index];
    AAllow := (AValue <> 'pack');
  end;
end;

Consigues que la columna dato3 y dato5 sean ReadOnly si el valor de dato2 es igual a "pack".
Puedes modificar las condiciones como necesites.




También se puede hacer de otras formas.
Aquí tienes un ejemplo utilizando el evento OnEditing.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita