Check box в ячеках DBGrid
Check box в ячеках DBGrid
Check box в ячеках DBGrid На событие ondrawcolumncell повесьте вызов процедуры procedure drawgridcheckbox(canvas:tcanvas rect:trect checked:boolean) var drawflags: integer begin canvas.textrect(rect,rect.left+1,rect.top+1,' ') drawframecontrol(canvas.handle, rect, dfc_button, dfcs_buttonpush or dfcs_adjustrect) drawflags:=dfcs_buttoncheck or dfcs_adjustrect// dfcs_buttoncheck if checked then drawflags:=drawflags or dfcs_checked drawframecontrol(canvas.handle, rect, dfc_button, drawflags) end Кроме этого, для скрытия текста в ячейках с checkbox-ом от отображения значения при вводе с клавиатуры определите реакцию на событие oncolumnenter: procedure tfrmmain.dbgrid1colenter(sender: tobject) begin with tdbgrid(sender) do if selectedfield.fieldname='included' then // Условие должно быть модифицировано под вас options:=options-[dgediting] else options:=options+[dgediting] end
