假设TStringGrid的宽度100, 里面有两栏, 宽度分别是40, 70. 当程式运行时, 栏2只有一部分show出来. 这时将将游标移入栏2, Grid会自动向左滚动. 请问如何阻止这种滚动? 我已试过将ScrollBars设置成ssNone, 只是不秀bar, 但滚动还是发生. _________________________ Programming is a passion

70 40=110 > 100 把stringgrid設寬一點如何呢?

有點困難。主要 TStringGrid 並沒有可以介入的機會。 像是 TopLeftChanged 解決方法：(建議） 1. 用 RowSelect 。 2. 攔截 SelectCell 3. 改寫 Grids ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

解決了！但我發覺越老腦袋越不靈光。

type
  TStringGrid = Class(Grids.TStringGrid)
  protected
    procedure TopLeftChanged; override;
  end;
  TForm1 = class(TForm)
    EvGrid1: TStringGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    Procedure TStringGrid.TopLeftChanged;
begin
  inherited;
  {當觸發TopLeftChanged 就意味 LeftCol 更改，因此在改回來}
  LeftCol := FixedCols;
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

感谢wameng兄指点迷津. 我发现用RowSelect也能阻止滚动, 但wameng兄的方法更精巧, 谢谢. _________________________ Programming is a passion