Delphi 標準對話框完整調用指南：OpenDialog、SaveDialog、ColorDialog、FontDialog 進階屬性與歷史記錄實作

標準對話框程式化控制核心技術

1.4.3.1 調用標準對話框

• 除 Font/Find/Replace 有 Events 頁，其餘標準對話框 Events 頁空白
• 本身不可視，無法響應標準滑鼠鍵盤操作
• 程式碼中呼叫 Execute 方法執行對話框
• 實作模式：設計主選單 → 選單項事件處理程序中呼叫 Execute → 響應選單命令彈出對話框

1.4.3.2 OpenDialog 與 SaveDialog

自動載入歷史檔名程式碼

if OpenDialog1.Execute then
  OpenDialog1.HistoryList.Insert(0, OpenDialog1.FileName);

1.4.3.3 ColorDialog 與 FontDialog

• ColorDialog：前文範例已使用，Options 詳細設定請查閱線上說明
• FontDialog：OnApply 事件啟用 Apply 按鈕，設定字體即時套用至指定物件，對話框保持開啟便於觀察修改結果

FontDialog 即時套用範例

procedure TForm1.Button1Click(Sender: TObject);
begin
  FontDialog1.Execute;
end;

procedure TForm1.FontDlgApply(Sender: TObject);
begin
  Button1.Font := FontDialog1.Font;
end;

掌握標準對話框屬性與事件，能無縫整合 Windows 原生檔案、字體、顏色選擇體驗，提升應用程式專業度。

1. 上一篇文章： Delphi 列印/尋找取代對話框與專案管理工具：PrintDialog、FindDialog、ReplaceDialog 實戰應用
2. 下一篇文章： Delphi 物件變數指派、is/as 運算子與非視覺物件建構完整教學

Delphi

Delphi 實作 DirectSound 回聲效果器 (IDirectSoundFXEcho8) 教學

前言 回聲效果器模擬聲音在空間中反射產生的重複衰減聲。IDi

Delphi 集成辦公之星控件實現報表與文檔處理

控件簡介 「辦公之星」是深圳智島軟件推出的基於圖文混排的 A

Delphi 仿製用友 U8 介面：DevExpress dxNavBar + cxPageControl 多頁籤導航實作

介面架構 左側：TdxNavBar (DevExpre

Delphi 2007 體驗實錄：20 項新功能逐項測試與 4 個遺留問題

測試環境 對比基準：Delphi 7（部分功能可能存在於 D