Membuat TEdit Rata Tengah dan Kanan Delphi

unit Unit1;<br /> interface<br /> uses<br />   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />   Dialogs, StdCtrls;<br /> type<br />   TForm1 = class(TForm)<br />     Edit1: TEdit;<br />     Edit2: TEdit;<br />   procedure RightEdit(e:TEdit);<br />   procedure CenterEdit(e:TEdit);<br />     procedure FormCreate(Sender: TObject);<br />   private<br />     { Private declarations }<br />   public<br />     { Public declarations }<br />   end;<br /> var<br />   Form1: TForm1;<br /> implementation<br /> {$R *.dfm}<br /> { TForm1 }<br /> procedure TForm1.CenterEdit(e: TEdit); begin SetWindowLong(e.Handle,GWL_STYLE,GetWindowLong(e.Handle,GWL_STYLE) or ES_CENTER); end; procedure TForm1.RightEdit(e: TEdit); begin SetWindowLong(e.Handle,GWL_STYLE,GetWindowLong(e.Handle,GWL_STYLE) or ES_RIGHT); end; procedure TForm1.FormCreate(Sender: TObject); begin   CenterEdit(Edit1);   RightEdit(Edit2); end; end.

Screen shot :