Delphi 事件處理程序撰寫、ColorDialog 應用與線上說明系統完整活用指南

賦予介面靈魂：事件驅動程式設計、標準對話框整合與線上說明高效查詢

1.2.5.1 建立使用者操作「事件」響應

1. 選取表單上按鈕（如 Rectangle）
2. Object Inspector 切換 Events 頁
3. 雙擊 OnClick 事件值欄 → Delphi 啟動程式碼編輯器，游標定位於對應程序 begin...end 間
4. 撰寫程式碼控制元件屬性：Shape1.Shape := stRectangle;

同法處理 Button2、Button3：分別指派 stRoundRect、stEllipse。建議開啟 Shape1 Object Inspector 對照 Shape 屬性可選值輸入，避免拼寫錯誤。

事件處理程序結構

procedure TForm1.Button1Click(Sender: TObject);
begin
  { 使用者程式碼區 }
  Shape1.Shape := stRectangle;
end;

• 以 procedure 關鍵字開頭
• Sender: TObject 參數代表觸發事件的元件
• begin...end 間填入業務邏輯，亦可宣告區域變數
• 此程序區塊響應外部事件（如按鈕點擊），稱為事件處理程序

1.2.5.2 使用顏色編輯對話框

BitBtn1 (Color) 控制 Shape1 顏色，利用非視覺元件 ColorDialog1：

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ColorDialog1.Execute;                    // 顯示對話框
  Shape1.Brush.Color := ColorDialog1.Color; // 套用選取顏色
end;

原理解析

• Execute 方法執行對話框，使用者選顏色後，ColorDialog1.Color 屬性更新為選定色值
• Brush 為集合屬性，含 Color 子屬性，正是形狀填滿顏色
• 將對話框回傳色值指派給 Shape1.Brush.Color 完成顏色變更

1.2.6 線上說明系統高效使用

最快掌握方法/屬性/欄位的途徑：

• 搜尋功能：Help → Help Topics → 索引，輸入元件類別名（如 TColorDialog）
• Methods：查閱可用方法（如 Execute）
• Properties：所有屬性，關鍵屬性前有「金鑰」圖示附詳盡說明
• Tasks：相關主題連結
• Examples：應用範例程式碼可複製貼上
• 已知物件查詢具體方法/欄位：直接用主題詞搜尋

驗證成果

執行程式，點擊形狀按鈕改變圖形、點擊 Color 按鈕選擇顏色。雖是「小玩具」，直觀展示 Delphi 程式設計流程：極少程式碼實現豐富功能，體會 Delphi 為程式設計師提供的便利。