type
TNumEdit = class(TEdit)
procedure CreateParams(var Params: TCreateParams); override;
.......
procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin inherited CreateParams(Params);
Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;
Автор ответа:МММ