type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
{ Обявляем класс нашего едита как потомок от стандартного} type TMySuperEdit=class(TCustomEdit) public { Внутри класса переопредялем процедуру CreateParams, т.к. нужный нам стиль можно изменить только на создании или пересоздании окна } Procedure CreateParams(Var Params: TCreateParams); override; end;
var Form1: TForm1;
implementation
{$R *.dfm}
Procedure TMySuperEdit.CreateParams(Var Params: TCreateParams); Begin { Вызываем родительский обработчик, чтобы он сделал все процедуры по созданию объекта класса } inherited CreateParams(Params); { Изменяем стиль } With Params Do Style:=Style or ES_RIGHT; End;
procedure TForm1.FormCreate(Sender: TObject); begin { Создаём едит на основе нашего класса и кладём его на форму } With TMySuperEdit.Create(Self) Do Parent:=Self; end;
Статья Правое выравнивание текста в компоненте Edit(2) раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.