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
- procedure TForm1.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] := ‘
Identification
‘
; - AdvStringGrid1.Cells[1,1] := ‘Brand来4源gaodaimacom搞#代%码*网‘;
- AdvStringGrid1.Cells[2,1] := ‘Type’;
- AdvStringGrid1.Cells[3,1] := ‘CC’;
- AdvStringGrid1.Cells[4,1] := ‘Pk’;
- AdvStringGrid1.Cells[3,0] := ‘
Power
‘
; - AdvStringGrid1.BtnEdit.ButtonWidth := 24;
- end;
一、Navigation——AdvancelInsert:控制当光标在最后一个CELL时是否可以按回车插入新行
二、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）：
- procedure Tfrm_dingdan.strgridGetCellColor(Sender: TObject; ARow,
- ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
- begin
- if ARow=0 then //如果不加这一句，则是以下对应的整列，我这里是只改变固列，所以要把ARow设为0
- 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;
- end;
