DevExpress Grid: Selection

[haentschman]

Moin...
Der Ursprungscode:

Delphi-Quellcode:

procedure TfoAssignment.GridDBTableViewCanSelectRecord(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; var AAllow: Boolean);
var
  View: TcxGridDBTableView;
begin
  View := TcxGridDBTableView(Sender);
  AAllow := ContainsText(View.GetColumnByFieldName('ixBELArt').EditValue, conAllowedDocumentType); // nicht bei SHIFT!!!!
end;