Estou passando pelo seguinte problema com um TDBGrid
.
Essa TDBGrid
está com a opção dgMultiSelect
ativa. O problema é, quero que, com um clique a linha fique selecionada como se tivesse apertado Ctrl + Mouse click e é isso que não sei como fazer.
Código :
procedure TfrmPrincipal.GridCellClick(Column: TColumn); var sValorColunaAtivo: Integer; begin if UpperCase(Column.FieldName) = 'SELECTED' then begin if DM.FDMemTableExpedicao.FieldByName('SELECTED').AsInteger = 1 then sValorColunaAtivo := 0 else sValorColunaAtivo := 1; // edita o DataSet, inverte o status e grava os dados DM.FDMemTableExpedicao.Edit; DM.FDMemTableExpedicao.FieldByName('SELECTED').AsInteger := sValorColunaAtivo; DM.FDMemTableExpedicao.Post; end; end;