TAdvStringGrid是Delphi编程中常用的控件,经常用于统计数据和设计比较复杂的表格。控件功能很强大,但相应的使用也很复杂!
以下是整理出的常用技巧,有一部分是我自己的经验,有一部分是网上搜的别人的总结,有一部分整理了,有一部分没有整理;有一部分测试了,有一部分没有经过测试
常用属性设置
Options—goEditing:是否可以编辑
Options—goTabs:控制是否可用TAB键将光标移到下一CELL
Option—goColSizing/RowSizing=true:设置列宽/行高可调整
Navigation—AlwaysEdi=true:进入单元格时自动变成编辑状态
Navigation—AdvanceOnEnter=true:回车时自动移到下一个CELL
Navigation—AdvancelInsert:控制当光标在最后一个CELL时是否可以按回车插入新行
Navigation—AllowDeleteRow:控制是否按DELETE键删除当前行
Navigation—AppendOnArrowDown:控制按下箭头是否可以新增一行(未找到这个属性)
MouseActions—RowSelect/ColSelect=true :选择整行/选择整列
Navigation—AutoComboDropSize=true组合框下拉框展开宽度自动设置
MouseActions—DirectComboDrop=True组合框进入时自动展开
(点击鼠标时直接进入编辑,或允许、不允许改变行或列宽等特性,都可以在MouseActions中设置。)
AutoNumAlign:=True则数字类型数据在CELL里会自动右对齐
AutoNumberCol(n);自动在第n列按顺序显示数字,即1,2,3……
AutoSize:=true :自动设置列宽,不推荐使用,自动调整后,真的很难看。
EnableWheel:=true :一次滚动多行,EnableWheel:=False时,一次滚动一行。
SearchFooter—Visible:=TRUE时,会在ADVStringGrid的底部显示出搜索框(未找到属性)
FloatingFooter—Visible:为TRUE时,即在ADVStringGrid底部显示求和列,要想让求和列显示小数,还需要将FloatFormat属性设置为:%g(未找到属性)
(自动换行到新追回行:必须在onCellValidate过程中执行strGrid.AddRow;可以同时加一些赋值语句。)
(当合并行后,如果想使文字垂直居中,可以先设置ADVStringGrid的 MultilineCells 设置为 True,然后在文字前面加 #13 换行来实行)
(改变固定列的显示样式:ControlLook——FixedGradientFrom(起始色)——FixedGradientFrom(结束色)
用过程设置相关属性
1,设定单元表各列是否可以编辑: 首先在设置属性:Options—goEditing=true;然后,在CanEditCell事件中设定。
procedure TForm50.stgPartListCanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);
Var
I:integer;
begin
if (stgPartList.cells[cC1Data_Flag,ARow]='') or (stgPartList.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 stgPartList.cells[cC1Data_Flag,aRow]='C' then CanEdit:=false
else begin
if cColProp1[I,1]='Y' then CanEdit:=true; //cColProp1:列属性数组,下同
if cColProp1[I,1]='N' then CanEdit:=False;
end;
end;
end;
end;
end;
2,设定单元表各列对齐方式: 在GetAlignment事件中设定。
{
1、必须设置advStringGrid属性WordWrap = false,
2、在OnGetAlignment事件中,添加以下代码
procedure Tfrm_book_input.StringGrid1GetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
//设置文字垂直居中必须设置属性:StringGrid1.WordWrap = false,否则不居中
HAlign := taCenter;
VAlign := vtaCenter;
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 xpColQty1-1 do begin
if ACol=I then begin
//case strToInt(xaColProp1[I,4])
if xaColProp1[I,4]='C' then AAlignment:=taCenter;
if xaColProp1[I,4]='L' then AAlignment:=taLeftJustify;
if xaColProp1[I,4]='R' then AAlignment:=taRightJustify;
end;
end;
end;
{//