Delphi 資料瀏覽元件全解析：DBGrid、DBNavigator、DBMemo、DBImage 與資料感知列表框

一、資料瀏覽元件概覽

位於元件面板 Data Controls 頁，透過 TDataSource 連接 TTable/TQuery，實現資料庫欄位與 UI 控件的雙向繫結。

二、共同核心屬性

• DataSource：指定 TDataSource 名稱
• DataField：對應資料集欄位名 (TDBGrid/DBNavigator 除外)
• ReadOnly：True 唯讀，False 可編輯 (預設)
• Enabled：受 DataSource.Enabled、DataSet.Active 聯動影響

三、TDBGrid 進階應用

1. 欄位編輯器建立永久欄位

• 控制顯示順序、寬度、標題 (DisplayLabel)、格式 (DisplayFormat/EditFormat)
• Visible = False 隱藏不需顯示欄位
• Required = True 強制輸入

2. Options 屬性微調行為

3. 關鍵事件

• OnDrawDataCell：自繪儲存格 (需 DefaultDrawing = False)
• OnColEnter/OnColExit：進入/離開欄位觸發驗證
• OnDblClick：雙擊彈出選單 (如國別選擇)

4. 自訂繪製範例：負數紅字顯示

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (Field.DataType = ftFloat) and (Field.AsFloat < 0) then
  begin
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.DefaultDrawDataCell(Rect, Field, State);
  end;
end;

四、TDBNavigator 按鈕功能與客製化

VisibleButtons 控制顯示哪些按鈕；ShowHint = True 顯示動態提示；Hints 自訂提示文字。

五、TDBMemo / TDBImage 處理 BLOB 資料

• AutoDisplay = False：不自動載入大量文字/圖片，雙擊才載入，提升游標移動效能
• 最大 32KB 文字限制 (Memo)
• 剪貼簿操作需呼叫 CutToClipboard/CopyToClipboard/PasteFromClipboard
• ReadOnly 控制是否允許編輯

六、資料感知列表框與下拉框

TDBListBox / TDBComboBox (靜態項目)

• Items 設計期指定選項
• Style：csDropDown (預設可輸入)、csDropDownList (僅選不可輸入)
• 僅支援 TTable，不支援 TQuery

TDBLookupListBox / TDBLookupComboBox (動態關聯表)

• ListSource：關聯表 DataSource
• ListField：顯示欄位 (可多欄 Field1;Field2)
• KeyField：關聯鍵值欄位
• DataField：主表外鍵欄位
• 自動同步：主表游標移動 → 關聯表定位 → 選項更新

七、多視圖同步顯示同一資料集

規則：多個 DataSource 共用單一 DataSet。

{ Form2 建立時 }
DataSource2.DataSet := Form1.Table1;  // 共用 Form1 的 Table1
{ 兩個表單的 DBGrid/DBEdit 綁定各自 DataSource 即可同步 }

範例專案：C:\Delphi\Demos\DB\TwoForms