Delphi StringGrid使用全書2

領測軟件測試網

procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer ;
begin
Sg:=TStringGrid.Create(self);

with SG do
begin
parent:=self;
align:=alclient;
DefaultDrawing:=false;
FixedColor:=clYellow;
RowCount:=30;
ColCount:=20;
FixedCols:=1;
FixedRows:=1;
GridLineWidth:=0;
Options:=Options+[goEditing]-[goVertLine,goHorzLine,goRangeSelect];
OnDrawCell:=SGDrawCell;
OnTopLeftChanged:=SGTopLeftChanged;
Canvas.Font.name:=’宋體’;
Canvas.Font.Size:=10;

for i:=0 to colCount-1 do
for j:=0 to RowCount-1 do
　 cells[i,j]:=Format(’%d行%d列’,[j,i]);

for i:=0 to colCount-1 do
　 cells[i,0]:=Format(’第%d列’,[i]);
for i:=0 to RowCount-1 do
　 cells[0,i]:=Format(’第%d行’,[i]);

Cells[0,0]:=’　 左上角’;

文章來源于領測軟件測試網 http://www.kjueaiud.com/