我用DbGridEh对应一个ADOTable,
用户选择DbGridEh里的几个格子CELL(不是整行也不是整列)后,如何将选中的格子中的资料
清空,对应的AdoTable中的数据也为NULL.
同样的,如何对想要的一个区域即几个格子指定颜色(不是整行也不是整列),其实就是想
找一个对CELL进行操作的方法

解决方案 »

  1.   

    DbGridEh不是有块选中功能吗?块选中了按下del键就把值删掉了啊.
    块选中时颜色已经变了,不必要再去手工修改了,多麻烦.
    设几个值就可以实现块选中的功能了,具体我也记得不是很清楚了.我给你粘一段实现块选中的功能的源DFM.
          object grdData: TDBGridEh
            Left = 0
            Top = 0
            Width = 453
            Height = 257
            Align = alClient
            AllowedSelections = [gstRecordBooks, gstRectangle, gstAll]
            Color = 15658719
            DataSource = DataSource1
            EditActions = [geaCopyEh, geaSelectAllEh]
            FixedColor = 14403485
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            ImeName = #37329#23665#33521#25991#20889#20316#21161#25163
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind]
            ParentFont = False
            PopupMenu = PopupMenu1
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Visible = False
            OnCellClick = grdDataCellClick
            OnColumnMoved = grdDataColumnMoved
            OnDblClick = grdDataDblClick
            OnDrawColumnCell = grdDataDrawColumnCellEE
            OnKeyDown = grdDataKeyDown
            OnMouseUp = grdDataMouseUp
            OnSortMarkingChanged = grdDataSortMarkingChanged
            OnTitleClick = grdDataTitleClick
          end
        end
      

  2.   

    superyys(无血野人) 谢谢你的回复
    当然没有这么简单.
    1.选中后, 按DEL并没有什么反应
    2.不是选中时颜色, 而是要对择中的N个格子指定颜色, 即用户想对不同的区域指定不同颜色. 象EXCE一样.