DBGrid - fazer campo checkbox com bitmap funcionar com click do mouse quando rowselect estiver ativado

Top  Previous  Next

    procedure GridMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

  private

    ColCheck: Boolean;     

  public

  end;

 

 

procedure TLancamentoHorasForm.GridMouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

  if Grid.MouseCoord(X, Y).X > 0 then

    // BancoTbCheckMark é o campo que tem a figurinha do checkmark

 ColCheck:= Grid.Columns[Grid.MouseCoord(X, Y).X-1].Field = BancoTbCheckMark;

end;

 

procedure TLancamentoHorasForm.GridCellClick(Column: TColumn);

begin

  if ColCheck or (Column.Field = BancoTbCheckMark) then

  begin

    BancoTb.Edit;

    BancoTbCheckMark.AsInteger:= IfThen(BancoTbCheckMark.AsInteger = 010);

    BancoTb.Post;

  end;

end;