轻松实现DBGrid的多表头计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:35:58
来源 100Test.Com百考试题网

　　用法：
　　设置DBGrid的Column的Caption属性
　　例如：Column1的Caption为111|222
　　Column2的Caption为111|333
　　那么Column1和Column2公用一个表头111
　　unit ADBGrid.
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　Grids, DBGrids, Math.
　　type
　　TADBGrid = class(TDBGrid)
　　private
　　{ Private declarations }
　　//兄弟列子标题,当前列子标题
　　BrerLayerTitles, CurLayerTitles: TStringList.
　　SaveFont: TFont.
　　//根据当前数据列号和表头的层号获取表头的区域
　　function TitleLayerRect(LayerTitles: TStrings. TitleRect: TRect. LayerID, ACol: Integer): TRect.
　　//解出当前数据列标题为子标题并返回标题层数(子标题数)
　　function ExtractSubTitle(LayerTitles: TStrings. ACol: Integer): Integer.
　　protected
　　{ Protected declarations }
　　procedure DrawCell(ACol, ARow: Longint. ARect: TRect. AState: TGridDrawState). override.
　　procedure Paint. override.
　　public
　　{ Public declarations }
　　constructor Create(AOwner: TComponent). override.
　　destructor Destroy. override.
　　published
　　{ Published declarations }
　　end.
　　procedure Register.
　　implementation
　　procedure Register.
　　begin
　　RegisterComponents(\Samples\, [TADBGrid]).
　　end.
　　constructor TADBGrid.Create(AOwner: TComponent).
　　begin
　　inherited.
　　BrerLayerTitles := TStringList.Create.
　　curLayerTitles := TStringList.Create.
　　SaveFont := TFont.Create.
　　end.
　　destructor TADBGrid.Destroy.
　　begin
　　BrerLayerTitles.Free.
　　curLayerTitles.Free.
　　SaveFont.Free.
　　inherited.
　　end.
　　procedure TADBGrid.DrawCell(ACol, ARow: Integer. ARect: TRect.
　　AState: TGridDrawState).
　　var
　　SubTitleRT, CaptionRt, IndicatorRT: TRect.
　　Column: TColumn.
　　SubTitle: string.
　　i: Integer.
　　begin
　　if (ARow = 0) and (ACol