我用DbGridEh对应一个ADOTable,
用户选择DbGridEh里的几个格子CELL(不是整行也不是整列)后,如何将选中的格子中的资料
清空,对应的AdoTable中的数据也为NULL.
同样的,如何对想要的一个区域即几个格子指定颜色(不是整行也不是整列),其实就是想
找一个对CELL进行操作的方法
用户选择DbGridEh里的几个格子CELL(不是整行也不是整列)后,如何将选中的格子中的资料
清空,对应的AdoTable中的数据也为NULL.
同样的,如何对想要的一个区域即几个格子指定颜色(不是整行也不是整列),其实就是想
找一个对CELL进行操作的方法
块选中时颜色已经变了,不必要再去手工修改了,多麻烦.
设几个值就可以实现块选中的功能了,具体我也记得不是很清楚了.我给你粘一段实现块选中的功能的源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
当然没有这么简单.
1.选中后, 按DEL并没有什么反应
2.不是选中时颜色, 而是要对择中的N个格子指定颜色, 即用户想对不同的区域指定不同颜色. 象EXCE一样.