我想把 DBGRID 的 Column 在下拉時,顯示寬度比欄位大,但只在COMBOBOX 試出在GRID try 不出來,可以請前輩幫幫忙嗎? 例如:下拉時顯示 A0001 筆記本,但在GRID 顯示時寬度縮小,只顯示 A0001 不知道看的懂我的意思嗎? 發表人 - kakene 於 2003/07/30 10:59:52 發表人 - kakene 於 2003/07/30 11:21:29

納悶，您說的問題好象不存在，DBGrid的 Column在下拉時會自適應寬度，如果有文本長度大於寬度會自己進行調整，它的下拉清單是TListBox,看看TInplaceEditList.DropDown;過程的代碼，已經有進行處理的：

      J := PickList.ClientWidth;
      for I := 0 to PickList.Items.Count - 1 do
      begin
        Y := PickList.Canvas.TextWidth(PickList.Items[I]);
        if Y > J then J := Y;
      end;
      PickList.ClientWidth := J;

引言: 納悶，您說的問題好象不存在，DBGrid的 Column在下拉時會自適應寬度，如果有文本長度大於寬度會自己進行調整，它的下拉清單是TListBox,看看TInplaceEditList.DropDown;過程的代碼，已經有進行處理的：

      J := PickList.ClientWidth;
      for I := 0 to PickList.Items.Count - 1 do
      begin
        Y := PickList.Canvas.TextWidth(PickList.Items[I]);
        if Y > J then J := Y;
      end;
      PickList.ClientWidth := J;

但是我測試的結果並不如前輩所言,是有比原本欄位大,但是所有的文字並不能全部顯示出來...

你好： 沒錯，你說的情況確實存在，我重新試了一下，DBGrid用默認字體時正常，但換了一種字體後就會沒辦法完全顯示出來，我重新看了一下Delphi的代碼，發現有出入，應該是一個BUG： 我把Grids單元的TInplaceEditList.DropDown過程改了一下，你編譯一下該單元然後把Grids.dcu文件覆蓋掉$Delphi/lib下原文件就沒問題了。

procedure TInplaceEditList.DropDown;
var
  P: TPoint;
  I,J,Y: Integer;
begin
  …
      TPopupListbox(PickList).Color := Color;
      TPopupListbox(PickList).Font := Font;
      PickList.Canvas.Font := Font;//增加這一行即可
      …
      J := PickList.ClientWidth;
      for I := 0 to PickList.Items.Count - 1 do
      begin
        Y := PickList.Canvas.TextWidth(PickList.Items[I]);
        if Y > J then J := Y;
      end;
      PickList.ClientWidth := J    2 ;//顯示的不是很完全，加上2，這個地方可改可不改
    end;
    …
end;

引言: 我把Grids單元的TInplaceEditList.DropDown過程改了一下，你編譯一下該單元然後把Grids.dcu文件覆蓋掉$Delphi/lib下原文件就沒問題了。

找不到 TInplaceEditList.DropDown ...我是D5版的,有差嗎?

您的兩個檔已收到，找了一下，D6，D7有進行一些改動： D5中沒有TInplaceEditList，TDBGridInplaceEdit直接從TInplaceEdit繼承： TDBGridInplaceEdit = class(TInplaceEdit); 在DBGrids單元中找到procedure TDBGridInplaceEdit.DropDown;過程， 上面說的都在這裏邊（在該過程的最後面），照改一下就行。

謝謝~~ 單元檔已經改好,但是...我不會編譯ㄋ, >

kakene你好： 因為是Delphi的原始檔案，所以建議不要直接更改該單元，免得以後 萬一要改回來不好找，可拷貝一個DBGrids單元到外邊，然後新建一個 工程檔（或者直接在你的應用程式中），加入該單元至Project， 即可編譯該單元檔，同時也可在程式中進行測試一下，確認沒問題後 把編譯生成的dcu檔拷出來，覆蓋掉Delphi中原來的即可。

感謝指導,又多學了一招~~3Q