AdvStringGrid使用方法(2)

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

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3. AdvStringGrid1.FixedRows:=2;
4. AdvStringGrid1.SaveFixedCells := false;
5. AdvStringGrid1.MergeCells(1,0,2,1);
6. AdvStringGrid1.MergeCells(3,0,2,1);
7. AdvStringGrid1.Cells[1,0] := '

   Identification

   ';
8. AdvStringGrid1.Cells[1,1] := 'Brand';
9. AdvStringGrid1.Cells[2,1] := 'Type';
10. AdvStringGrid1.Cells[3,1] := 'CC';
11. AdvStringGrid1.Cells[4,1] := 'Pk';
12. AdvStringGrid1.Cells[3,0] := '

    Power

    ';
13. AdvStringGrid1.BtnEdit.ButtonWidth := 24;
14. end;