Membuat Edit Text Delphi Rata Tengah dan Rata Kanan

Source :

unit Unit1;  
  
  
interface  
  
  
uses  
  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  
  Dialogs, StdCtrls;  
  
  
type  
  
  TForm1 = class(TForm)  
  
    Edit1: TEdit;  
  
    Edit2: TEdit;  
  
  procedure RightEdit(e:TEdit);  
  
  procedure CenterEdit(e:TEdit);  
  
  procedure FormCreate(Sender: TObject);  
  
  private  
  
    { Private declarations }  
  
  public  
  
    { Public declarations }  
  
  end;  
  
  
var  
  
  Form1: TForm1;  
  
  
implementation  
  
  
{$R *.dfm}  
  
  
{ TForm1 }  
  
  
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.