這是引用一位大大其中的code,請問如何判斷圖中Cells[1,2] 中的checkbox 是否 checked?     程式碼如下:

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;    type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure gridcheckboxMouseDown(Sender: TObject; Button: TMouseButton;
              Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1TopLeftChanged(Sender: TObject);      private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
chk:TcheckBox;
i,j:integer;
begin
StringGrid1.RowCount:=30;
StringGrid1.ColCount:=10;
for i:= 1 to 9 do begin
  for j:=1 to 29 do begin
    StringGrid1.Cells[i,j]:='';
    chk:=Tcheckbox.Create(Stringgrid1);
    chk.name:=format('CellChk%d_%d',[i,j]);
    chk.Caption:='';
    chk.Checked:=false;
    chk.Visible:=false;
    chk.parent:=stringgrid1;
    chk.width:=chk.Height;
    chk.OnMouseDown:=gridcheckboxMouseDown;
    Stringgrid1.Objects[i,j]:=chk;
  end;
end;    end;    procedure TForm1.gridcheckboxMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);    begin
With Sender As TCheckbox Do
Checked := not Checked;    end;    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
chk: TCheckbox;
grid: TStringgrid;
begin
grid := Sender As TStringgrid;
//if (aCol = 1) and (aRow >= grid.FixedRows)
if ((aRow >= grid.FixedRows) and (aRow <= grid.RowCount)) and ((ACol >= grid.FixedCols) and (ACol <= grid.ColCount))
then begin
chk:= TCheckbox(grid.Objects[ aCol, aRow ]);
If Assigned(chk) Then Begin
chk.SetBounds( (rect.left + rect.right - chk.width) div 2,
(rect.top + rect.bottom - chk.height) div 2,
chk.width, chk.height );
if not chk.visible then
chk.show; 
End;
end;    end;    type
tgridcracker = Class( tstringgrid );        procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
begin
tgridcracker(Sender).InvalidateCol(1);
end;    end.    

圖中的Cell好像是1,1說 procedure TForm1.Button1Click(Sender: TObject); var chk: TCheckbox; begin //方法一 chk:= TCheckbox(StringGrid1.Objects[1,1]); showmessage(BoolTOStr(chk.checked)); //方法二 showmessage(BoolToStr((Form1.StringGrid1.FindComponent(format('CellChk%d_%d',[1,1])) as TCheckBox).Checked)); end;

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。