Edit 控件右對齊兩種做法：API 呼叫與元件繼承

預設 TEdit 文字靠左對齊，若需靠右（如金額輸入），有兩種常見做法：直接修改視窗樣式，或建立繼承元件複寫 CreateParams。

方法一：執行期呼叫 SetWindowLong

適用於少數控件需右對齊的情況，在 OnCreate 或 OnShow 中執行：

SetWindowLong(Edit1.Handle, GWL_STYLE,
  GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);

方法二：建立繼承元件 TMyEdit

適合專案大量使用，封裝行為於元件內部：

type
  TMyEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_RIGHT;
end;

比較

常數定義

ES_RIGHT 定義於 Winapi.Windows 單元，值為 $0002。