stringGrid中显示控制的问题

Question

Sg1 定义为　StrignGrid
只有一行，放在panel1上
程序中有以下语句
Sg1.Width:=panel1.Width-4;
for i:=0 to Sg1.ColCount -1 do
begin
Sg1.ColWidths[i]:=SG1.Width div　Sg1.ColCount;
end;为什么鼠标点击最后一列时
Sg1的整行向左移，留出正好一个Sg1.ColWdith宽度
怎么不让他左移查了一下午的help　以及网上的faq
反复将option的选项改为false true 都不行

Answer 1

scrollbars=none放在Form.show()过程中的！！
{$R *.dfm}
uses UnitDataModule;
procedure TFormView.FormShow(Sender: TObject);
var i:integer;
begin
Sg1.ColCount:=1;
with UnitDataModule.DataModule1 do
begin
  for i:=0 to Title.ItemCount do
  begin
    if Title.item[i].kind = 0 then
    begin
      Sg1.Cells[Sg1.ColCount-1,0]:=Title.Item[i].txt;
      Sg1.ColCount:=Sg1.ColCount+1;
    end;
  end;
    Sg1.ColCount:=Sg1.ColCount-1;
end;
Sg1.Width:=panel1.Width-4;
for i:=0 to Sg1.ColCount -1 do
begin
  Sg1.ColWidths[i]:=SG1.Width div Sg1.ColCount;
end;
end;
end.

Answer 2

就是因为有水平滚动条，去掉水平滚动条Sg1.ColWidths[i]:=（SG1.Width-10） div Sg1.ColCount;

Answer 3

scrollbars=ssnone
没有滚动条
这个问题？？？

Answer 4

这是因为TSTRINGGRID的宽度比其显示部分的长度略小所导致的，所以将TSTRINGGRID的长度略微加大，或缩小每个单元格的宽度，即可解决问题。俺同意cg2003()的作法。