procedureTForm1.FormCreate(Sender:TObject); begin AdvStringGrid1.FixedRows:=2; AdvStringGrid1.SaveFixedCells:= false ; AdvStringGrid1.MergeCells(1,0,2,1); AdvStringGrid1.MergeCells(3,0,2,1); AdvStringGrid1.Cells[1,0]:= 'palign="center"bIde
Identification
';Power
';二、Navigation——AdvanceOnEnter:控制按回车是否自动移到下一个CELL
三、Navigation——AllowDeleteRow:控制是否按DELETE键删除当前行
四、Navigation——AppendOnArrowDown:控制按下箭头是否可以新增一行
五、EnableWheel:=true时,一次滚动多行,EnableWheel:=False时,一次滚动一行。
六、SearchFooter—Visible:=TRUE时,会在ADVStringGrid的底部显示出搜索框
七、Options—goTabs:控制是否可用TAB键将光标移到下一CELL
八、AutoNumAlign:=True则数字类型数据在CELL里会自动右对齐
九、ADVStringGrid.AutoNumberCol(0);表示第0列按顺序显示数字,即1,2,3……
十、FloatingFooter—Visible:为TRUE时,即在ADVStringGrid底部显示求和列,要想让求和列显示小数,还需要将FloatFormat属性设置为:%g
十一、当合并行后,如果想使文字垂直居中,可以先设置ADVStringGrid的 MultilineCells 设置为 True,然后在文字前面加 #13 换行来实行
十二、改变固定列的显示样式:ControlLook——FixedGradientFrom(起始色)——FixedGradientFrom(结束色)
十三、改变单元格的背景色,可在OnGetCellColor事件中写代码实行(前提需将FLAT设置为TRUE):
十四、如果在录入的过程中,要对某列做格式化,比如保留几位小数,可用ADVStringGrid的GetFloatFormat事件中操作。比如:
十五、Options—goRangeSelect:控制是否可以选择多行,goRowSelect控制选中整行
、AdvStringGrid做多表头
在onIsFixedCell事件中返回true的就是表头
--------------------------------------------------------------------
2、怎样实现AdvStringGrid的列宽自动按内容调整?
怎样实现AdvStringGrid的列宽自动按列标题宽度调整?
autosize属性的作用是什么?
autosize,可以根据内容调整列宽。
自动按标题列调整,自己在其RESIZE事件里对COLWIDTHS[I]赋值就行了。
procedure AutoSizeColumns(const DoFixedCols: Boolean; const Padding: Integer);
例:AdvStringGrid1.AutoSizeColumns(False,16);
AdvStringGrid1.AutoSizeColumns(False,16);
第一参数:是否为固定列;第二个参数,文字后面留的空格数
所有单元格自动调整,由第一个参数设置是否含固定单元,
如要固定行折行显示应将其行高设为自动调整即:
AdvStringGrid1.AutoSizeRow(0);
---------------------------------------------------------------------
3、AdvStringGrid插入checkbox列
把advstringgrid的option属性中的goEditing 设为true
在from create事件中加入
---------------------------------------------------------------------
4、stringGrid中的行或列和并
5、
with advStringGrid1 do //引用单元格时, 列数在前,行数在后.
MergeCells(0,0,1,3);
//合并单元格.前两参数为列数行数. 后两参数分别为要合并的列数和行数
Cells[1,0] := Format('分度线( %s )',[m_sMeasureRangeUnit]);;
MergeCells(3,JieDianStart - 1,1,1);
Cells[3,JieDianStart - 1] := '动作方式';
ColWidths[3] := ColWidths[3] + 10;
Colors[3,JieDianStart - 1] := FixedColor;
FontNames[3,JieDianStart - 1] := FixedFont.Name;
FontSizes[3,JieDianStart - 1] := FixedFont.Size;
FontStyles[3,JieDianStart - 1] := FixedFont.Style;
前面是我在程序中拉的一段.
控件常用事件:
//单元格可否被修改
onCanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);
begin
if ACol = 0 then
CanEdit := false; //false不能修改
end;
//对齐方式
onGetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
HAlign := taCenter;
VAlign := vtaCenter;
end;
//是否固定列 ,即标题列, 在表中非开头行需要固定标题列时很有用
onIsFixedCell(Sender: TObject; ARow,
ACol: Integer; var IsFixed: Boolean);
begin
if(ARow = 10) then
begin
IsFixed := True;
end;
end;
-------------------------------------------------------------------------------
6、如何在AdvStringGrid中为每个单元格内的字体定制颜色
在OnDrawCell事件(看名字这个控件应该有这个事件把,呵呵!)写如下代码:
(Sender as TAdvStringGrid).Canvas.Font.Color:=clNavy;
7、cell中内嵌combobox
OnGetEditorType事件
if ACol = 1 then
begin
aEditor := edComboList;
grdMain.ClearComboString;
grdMain.AddComboString('借');
grdMain.AddComboString(' 贷');
end;
Copyright 2014-2023 //m.sbmmt.com/ All Rights Reserved | 苏州跃动光标网络科技有限公司 | 苏ICP备2020058653号-1
| 本站CDN由 数掘科技 提供