Как выравнять текст в Edit по правой стороне?
Как выравнять текст в Edit по правой стороне?
Как выравнять текст в Edit по правой стороне? TEditR = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end; procedure TEditR.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := Params.Style or ES_RIGHT; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1:=TEditR.Create(self); Edit1.Top:=100; Edit1.Left:=100; Edit1.Width:=121; Edit1.Height:=21; Edit1.ReadOnly:=true; Edit1.Parent:=self; end;
