Delphi實現標題欄文字向右對齊，不是左對齊

Delphi實現標題欄文字向右對齊，不是左對齊，打破了常規的左端對齊顯示，也算是一個簡單的窗體編程小技巧吧，個性化窗口的時候用得上，先來看運行截圖：

Delphi實現窗口標題伴文字右對齊代碼：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, CheckLst; 06 type 07   TForm1 = class(TForm) 08   private 09   protected 10     procedure CreateParams(var Params: TCreateParams); override; 11     { Private declarations } 12   public 13     { Public declarations } 14   end; 15 var 16   Form1: TForm1; 17 implementation 18 {$R *.dfm} 19 procedure TForm1.CreateParams(var Params: TCreateParams); 20 begin 21   inherited; 22   params.ExStyle:=Params.ExStyle+WS_EX_right; 23 end; 24 end.