动态AdvStringGrid完美示例 (AdvStringGrid使用技巧/Cells)
---
作者：TTT
日期：2009610
---
本方法实现用常量和常量数组完美创建和控制动态TAdvStringGrid。
原理就是先声明常量，包括列数，行数，各列的属性，然后在程序的其它过程用这些常量来控制Cells。非常方便，便于修改和移植!
以下为窗体整体代码，中间有说明。此段代码不光有动态AdvStringGrid的完美示例，还有一般窗体的常用的过程，比较窗体初始化，刷新过程。
此窗体，只需要简单准备如下，即可运行：
1，添加一个TAdvStringGrid，并命名为strGrid1。
2，设置：TAdvStringGrid-->option-->goEditing=true
TAdvStringGrid-->enableGraphics=true
3，修改Form名称为form1，或替换以下代码中的form1为当前窗体的名字。
4，将以下代码覆盖原来的代码。
5，关联以下过程(只需要在窗体和strGrid1控件属性-事件页中双击相关项即可完成关联。)
FormCreate
FormShow
strGrid1CanEditCell
strGrid1GetAlignment
strGrid1GetCellColor
strGrid1GetEditorType
unit ENMA0101;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, AdvGrid;const
cUnit_ID=^ENMA0101^; //声明常量，保存单元名称//声明常量，用于保存Cells的列数
cColQty1=8;//声明常量数组，保存Cells的各种属性，各种属性含义如下：
{0-显示
1-编辑
2-必输
3-类型
4-对齐
5-颜色
6-宽度
7-标题
8-是否从数据库中读取
9-数据表名称
10-字段名
11-字段长度
12-文本中读取
13-文本中位置 }
cColProp1: array[0..cColQty1-1] of array[0..13] of string=( //列属性
//显示编辑必输类型对齐 颜色 宽度 标题
// 0 1 2 3 4 5 6 7 8 9 10 11
(^Y^,^N^,^N^,^E^,^R^,^clBtnFace^,^25^,^NO.^,^N^,^^,^^,^0^,^N^,^0^), // 0
(^Y^,^N^,^N^,^E^,^L^,^clInfoBk^,^150^,^Part No^,^Y^,^POJBSUB^,^PART_NO^,^30^,^Y^,^2^), // 1
(^Y^,^Y^,^N^,^E^,^R^,^clWindow^,^60^,^Qty^,^Y^,^POJBSUB^,^ORDER_QUANTITY^,^9^,^Y^,^3^), // 2
(^Y^,^N^,^N^,^E^,^C^,^clMoneyGreen^,^40^,^U/M^,^Y^,^POJBSUB^,^UNIT_OF_MEASURE^,^2^,^Y^,^4^), // 3
(^Y^,^Y^,^N^,^C^,^C^,^clWindow^,^60^,^Dept^,^Y^,^POJBSUB^,^DELIVERY_TO_DEPT^,^3^,^Y^,^5^), // 4
(^Y^,^Y^,^N^,^C^,^C^,^clWindow^,^50^,^Grp^,^Y^,^POJBSUB^,^GROUP_A^,^3^,^Y^,^7^), // 5
(^Y^,^N^,^N^,^E^,^L^,^clSkyBlue^,^160^,^Part Name^,^Y^,^POJBSUB^,^PART_NAME_C^,^70^,^Y^,^8^), // 6
(^Y^,^Y^,^N^,^M^,^L^,^clWindow^,^50^,^DF^,^Y^,^POJBSUB^,^VENDOR_NO^,^5^,^Y^,^6^) // 7
);
//声明常量，定义列号，便于修改与引用
cC1NO=0;
cC1PART_NO=1;
cC1ORDER_QUANTITY=2;
cC1UNIT_OF_MEASURE=3;
cC1DELIVERY_TO_DEPT=4;
cC1GROUP_A=5;
cC1PART_NAME_C=6;
cC1Data_Flag=7;type
TForm1 = class(TForm)
strGrid1: TAdvStringGrid;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure strGrid1CanEditCell(Sender: TObject; ARow,
ACol: Integer; var CanEdit: Boolean);
procedure strGrid1GetAlignment(Sender: TObject; ARow,
ACol: Integer; var AAlignment: TAlignment);
procedure strGrid1GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
procedure strGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);private
{ Private declarations }
procedure prClear(pMode:byte);
procedure prRefresh(pMode: byte);procedure prStgInitialize1;
procedure prStg1Clear;public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
//窗体创建时执行代码
procedure TForm1.FormCreate(Sender: TObject);
Var
i,j:integer;
begin
//设定行数最大值，用于设置CheckedBox
strGrid1.RowCount:=1000;//设置cColProp1[3,J]=^C^的单元格为CheckedBox格式
for i:=1 to strGrid1.rowcount-1 do begin//通过以下属性数组设置未通过，当两列checkbox时，只能设置一列。
{for j:=0 to cColQty1-1 do begin
if cColProp1[3,J]=^C^ then
strGrid1.AddCheckBox(j,i,false,false);
end;}
//改为以下方式直接定义。
strGrid1.AddCheckBox(4,i,false,false);
strGrid1.AddCheckBox(5,i,false,false);
end;
end;//窗体显示时执行代码
procedure TForm1.FormShow(Sender: TObject);
begin
form1.caption:= cUnit_ID + ^ ^ + form1.caption;
prClear(0);
end;//窗体清空代码
procedure TForm1.prClear(pMode:byte);
begin
case pMode of
0:begin
prStgInitialize1;
end;
1:begin
prStg1Clear;
end;
end;//其它清空内容
end;
//窗体刷新代码
procedure Tform1.prRefresh(pMode: byte);
begin
//窗体刷新内容end;
//AdvStringGrid初始化过程
procedure TForm1.prStgInitialize1;
Var
I:Integer;
begin//设定零件表初始行数和列数
strGrid1.RowCount:=2;
strGrid1.ColCount:=cColQty1;
strGrid1.FixedRows:=1;
strGrid1.FixedCols:=1;//设定列宽度和列标题
for I:=0 to cColQty1-1 do begin
strGrid1.Cells[I,0]:=cColProp1[I,7]; //标题
if cColProp1[I,0]=^Y^ then
strGrid1.ColWidths[I]:=strToInt(cColProp1[I,6]) //列宽
else
strGrid1.ColWidths[I]:=0; //列宽
end;end;
//AdvStringGrid清空过程
procedure TForm1.prStg1Clear;
Var
I:integer;
J:integer;
begin
for I:=1 to strGrid1.RowCount-1 do begin
for J:=0 to cColQty1-1 do begin
strGrid1.Cells[J,I]:=^^;
strGrid1.SetCheckBoxState(J,I,false);
end;
end;
strGrid1.RowCount:=2;
end;//设定单元表各列是否可以编辑
procedure TForm1.strGrid1CanEditCell(Sender: TObject; ARow,
ACol: Integer; var CanEdit: Boolean);
Var
I:integer;
begin//直接定义
{if stgPList.Cells[cNCols1[3]-2,ARow]=^1^ then
CanEdit:=false
else begin
if ACol=cNCols1[2]-2 then
CanEdit:=true
else
CanEdit:=false;
end;}
{if aRow=0 then
CanEdit:=false
else if}//用属性数组定义
for I:=0 to cColQty1 do begin
if ACol=I then begin
if cColProp1[I,1]=^Y^ then CanEdit:=true;
if cColProp1[I,1]=^N^ then CanEdit:=False;
end;
end;//以下代码首先根据列cC1Data_Flag的值设定一行是否可以编辑，然后再根据属性数组设定。
{if (strGrid1.cells[cC1Data_Flag,ARow]=^^) or (strGrid1.cells[cC1Data_Flag,ARow]=^C^) then begin
canEdit:=false;
exit;
end else begin
for I:=0 to cColQty1 do begin
if ACol=I then begin
if strGrid1.cells[cC1Data_Flag,aRow]=^C^ then CanEdit:=false
else begin
if cColProp1[I,1]=^Y^ then CanEdit:=true;
if cColProp1[I,1]=^N^ then CanEdit:=False;
end;
end;
end;
end;}
end;
//设定单元表各列对齐方式
procedure TForm1.strGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var AAlignment: TAlignment);
Var
I:integer;
begin
//直接定义
{if ARow=0 then AAlignment:=tacenter
else begin
case ACol of
0: AAlignment:=taRightJustify;
1: AAlignment:=taCenter;
2: AAlignment:=taCenter;
3: AAlignment:=taRightJustify;
4: AAlignment:=taCenter;
6: AAlignment:=taCenter;
8: AAlignment:=taCenter;
9: AAlignment:=taCenter;
else AAlignment:=taLeftJustify;
end;
end; }
//用属性数组定义
if ARow=0 then AAlignment:=taCenter
else begin
for I:=0 to cColQty1-1 do begin
if ACol=I then begin
//case strToInt(cColProp1[I,4])
if cColProp1[I,4]=^C^ then AAlignment:=taCenter;
if cColProp1[I,4]=^L^ then AAlignment:=taLeftJustify;
if cColProp1[I,4]=^R^ then AAlignment:=taRightJustify;
end;
end;
end;end;
//设定单元表各列颜色
procedure TForm1.strGrid1GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
Var
I:integer;
begin//直接定义
{if ARow>0 then begin
Case ACol of
1: ABrush.Color:=RGB(227,249,248);
2: ABrush.Color:=RGB(250,232,193);
3: ABrush.Color:=RGB(227,249,248);
4: ABrush.Color:=RGB(250,232,193);
12: ABrush.Color:=RGB(227,249,248);
14: ABrush.Color:=RGB(250,232,193);
24: ABrush.Color:=RGB(227,249,248);
48: ABrush.Color:=RGB(250,232,193);
51: ABrush.Color:=RGB(227,249,248);
End;
end;}//用属性数组定义
if ARow=0 then
abrush.Color:=clBtnFace // 首行为灰色
else begin
for I:=0 to cColQty1 do begin // 非首行按属性数组设置颜色
if ACol=I then abrush.Color:=StringToColor(cColProp1[I,5]);
end;
end;end;
//设定单元表各列控件类型
procedure TForm1.strGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
Var
I:integer;
beginfor I:=0 to cColQty1 do begin
if ACol=I then begin
if cColProp1[I,3]=^M^ then begin
AEditor:=edComBoEdit;
strGrid1.ClearComboString;
strGrid1.AddComboString(^Y : 同意^);
strGrid1.AddComboString(^N : 拒绝^);
end;
end;
end;
end;end.
(以上过程在Delphi6中测试通过。)
这样，如果修改Cells相关的属性，只需要修改数组cColProp1相关的值就可以实现了，很方便的。
关于修改cColProp1，你可以直接在上面的代码窗口中修改，但如果列相当多的话，这样改起来也是相当麻烦的，而且容易改错，也是不方便的!
对此，我做了一个excel模板：动态Cells设定工具表，如附件。
通过这个模板，可以自动生成静态数组cColProp1和静态列号，修改起来也很直观，很方便。
修改后，将生成的静态数组cColProp1和静态列号复制到代码里即可。
动态Cells设定工具表: DynamicCells_Setting.xls
【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=6JTZcg5nkbM9 Tag: Delphi技巧 推荐 TTTBLOG