unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Mask ;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;





type

TRightEdit = class(TMaskEdit)

protected

procedure CreateParams(var Params: TCreateParams ); override;

end;



var

Form1: TForm1;

RightEdit: TRightEdit;







implementation



{$R *.DFM}

var

i:integer;



procedure TRightEdit.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.Style:=Params.Style or ES_CENTER or ES_WANTRETURN; //가운데정렬

// Params.Style:=Params.Style or ES_RIGHT or ES_WANTRETURN; //오른쪽정렬

end;







//RightEdit.Destroy;







procedure TForm1.Button1Click(Sender: TObject);

begin

RightEdit:=TRightEdit.Create(Self);

InsertControl(RightEdit);

RightEdit.Top:=10+i;

RightEdit.Left:=100;

RightEdit.Width:=150;

RightEdit.Font.Name:='굴림';

RightEdit.Font.size:=10;

RightEdit.SetFocus;

RightEdit.EditMask := '0000-00-00;_';



i:=i+20;

end;



end.



end.