Delphi 版本 BDS 2006 Update2 HotFixRollup2
1.dbgrid options 含 dgRowSelect
2.dbgrid Width 剛好等於 Columns 的 Width
3.HightLight 應該是一整行, 但是這時卻亂跑,

---- 以下為取得 ColumnsWidth 的程式

<textarea class="delphi" rows="10" cols="60" name="code">type TAccessDBGrid=class(TCustomDBGrid); function GetColumnWidths(DBGrid: TCustomDBGrid):Integer; var ColumnCount, I: Integer; begin with TAccessDBGrid(DBGrid) do begin Result := 0; ColumnCount:=0; for I := 0 to Columns.Count-1 do if Columns[I].Visible then begin Inc(Result, Columns[I].Width); Inc(ColumnCount); end; if ColumnCount = 0 then Exit; if dgColLines in Options then Inc(Result, ColumnCount); Inc(Result,GetSystemMetrics(SM_CXVSCROLL)); if dgIndicator in Options then Inc(Result, IndicatorWidth); if BorderStyle = bsSingle then if Ctl3D then Inc(Result, 4) else Inc(Result, 2); end; end; </textarea>

這個現像, 應該是我寫的程式碼在執行週期設定 Column 的 Visible 有關! Delphi 在判斷欄位 Visible 是出錯!

應該與 OnDrawColumnCell Event有關
請確認

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

為了抓蟲蟲, 我是用 DELPHI 的標準元件, 沒有增加任何的事件, 後來詳細測試時, 確定有二個必要條件

1.dbgrid Columns 最後一個為 Visible Off
2.dbgrid Width 剛好等於 Visible Columns 的 Width

在 2007 Update 1 的測試結果也一樣出錯!