学用TStringGrid[2]DefaultColWidth、DefaultRowHeight、Col、Row

//本例代码:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Grids;typeTForm1 &＃61; class(TForm)StringGrid1: TStringGrid;Panel1: TPanel;Button1: TButton;Button2: TButton;Button3: TButton;procedure Button1Click(Sender: TObject);procedure StringGrid1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{修改单元宽度与高度}
procedure TForm1.Button1Click(Sender: TObject);
beginStringGrid1.DefaultColWidth :&＃61; 56;StringGrid1.DefaultRowHeight :&＃61; 18;TButton(Sender).Caption :&＃61; &＃39;宽与高&＃39;;
end;{添加一行}
procedure TForm1.Button2Click(Sender: TObject);
beginStringGrid1.RowCount :&＃61; StringGrid1.RowCount &＃43; 1;TButton(Sender).Caption :&＃61; &＃39;加一行&＃39;;
end;{添加一列}
procedure TForm1.Button3Click(Sender: TObject);
beginStringGrid1.ColCount :&＃61; StringGrid1.ColCount &＃43; 1;TButton(Sender).Caption :&＃61; &＃39;加一列&＃39;;
end;{当前单元}
procedure TForm1.StringGrid1Click(Sender: TObject);
varc,r: Integer;
beginc :&＃61; StringGrid1.Col; {当前列}r :&＃61; StringGrid1.Row; {当前行}StringGrid1.Cells[c,r] :&＃61; Format(&＃39;列:%d;行:%d&＃39;, [c,r]);
end;end.