CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章oracle 动态AdvStringGrid完美示例 (AdvStringGrid使用技巧/Cells)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

原理就是先声明常量，包括列数，行数，各列的属性，然后在程序的其它过程用这些常量来控制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;  begin  for 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和静态列号复制到代码里即可。  。

最后此篇关于oracle 动态AdvStringGrid完美示例 (AdvStringGrid使用技巧/Cells)的文章就讲到这里了,如果你想了解更多关于oracle 动态AdvStringGrid完美示例 (AdvStringGrid使用技巧/Cells)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。