unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, Math;    type
  TDumGrid = class(TDBGrid)
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  end;
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  with TDumGrid.Create(self) do begin
    Parent := Self;
    DataSource := DataSource1;
  end;
end;    { TDumGrid }    procedure TDumGrid.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var i,MaxWidth : integer;
begin
  if FGridState = gsColSizing then begin
    inherited;
    MaxWidth := ClientWidth-ColWidths[0]-GridLineWidth;
    for i := 0 to Columns.Count-1 do
     Columns[i].Width:= min(MaxWidth,Columns[i].Width);
  end
  else inherited;
end;    end.

type TDumGrid1=class(TDBGrid);
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i,MaxWidth : integer;
begin
  with TDumGrid1(Sender) do begin
    MaxWidth := ClientWidth-ColWidths[0]-GridLineWidth;
    for i := 0 to Columns.Count-1 do
     Columns[i].Width:= min(MaxWidth,Columns[i].Width);
  end;
end;

引言: 小弟試了一下, 不會有 error 訊息 第一次 run 的時候, 真地把 column 拉到跟 Grid 一樣大就調不會回來 可是關掉 ap 再重 F9 run, 就可以了 真怪! --- >< face="Verdana, Arial, Helvetica"> 要拉GIRD中 ''最右邊'' 個的那個COLUMN 才會error喔!!!!