procedure TForm1.Button2Click(Sender: TObject);
var
ro : integer;
begin
with StringGrid1 do
begin
For ro := 1 To 4 do
begin
objects[0,ro] := Tcheckbox.create(self);
TWinControl(objects[0,ro]).parent := stringgrid1;
TWinControl(objects[0,ro]).boundsrect := cellrect(0,ro);
TWinControl(objects[0,ro]).width := colwidths[0];
TWinControl(objects[0,ro]).height := rowheights[0];
end;
end;
end;
이렇게 코디을 하여 StringGrid1에 체크박스를 만들었는데 ....
체크박스의 기능이 없네요.. 클릭시에 체크가 되어야 하는데 아무변화가 없습니다.
스트링그리드의 설정을 해야 되나요
아니면 체크박스를 생성시에 옵션으로 만들어야 하나요...