Советы по Delphi

         

Правое выравнивание текста в компоненте Edit


    TEdit1  = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end;
procedure TEdit1.CreateParams(var Params: TCreateParams); begin
inherited
CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end;

[001581]



Содержание раздела