1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  TMyFormatEdit=class(TEdit)
  private
    fAlignment:TAlignment;
    procedure SetAlignment(aValue:TAlignment);
    procedure CreateParams(var Params:TCreateParams); override;
  puplished
    property Alignment:TAlignment read fAlignment write SetAlignment;
  end; // TMyFormatEdit


procedure TMyFormatEdit.CreateParams(var Params: TCreateParams);
const Alignments:array[TAlignment] of Longint=(ES_Left, ES_Right, ES_Center);
begin
  inherited CreateParams(Params);
  Params.Style:=Params.Style or ES_MultiLine Or Alignments[fAlignment];
end; // TMyFormatEdit.CreateParams

procedure TMyFormatEdit.SetAlignment(aValue:TAlignment);
begin
  if (fAlignment<>aValue) then
  begin
    fAlignment:=aValue;
    RecreateWnd;
  end; // if
end; // TMyFormatEdit..SetAlignment