Delphi 自訂圖形元件入門：從 TGraphicControl 繼承到屬性發布與註冊全流程

19.3.2 建立圖形元件：三階段標準流程

圖形控制項 (TGraphicControl 衍生) 無視窗控制代碼、不接收鍵盤焦點，但支援滑鼠/拖放互動，輕量高效。

階段 1：建立單元、繼承、註冊

unit Shapes;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms;
type
  TSampleShape = class(TGraphicControl)
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('Samples', [TSampleShape]);
end;
end.

RegisterComponents 將元件放入調色盤 Samples 頁。

階段 2：發布繼承屬性與事件

TGraphicControl 已發布視覺屬性，需補充滑鼠/拖放互動：

type
  TSampleShape = class(TGraphicControl)
  published
    property DragCursor;
    property DragMode;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;

獲得完整滑鼠回應與拖放能力。

階段 3：增加圖形功能（核心價值）

兩大子任務：

• 決定畫什麼： 設計外觀控制屬性 (如 Shape 枚舉)。
• 怎麼畫： 覆寫 Paint 虛擬方法實作繪圖邏輯。

後續文章將逐步實作完整 TSampleShape 元件。