Make a EditBox with right text alignment  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 21/12/99

Tip accessed 512 times

 


First, make a esqueleton code (perform the steps indicated in the trip 'Make components with OnENter and OnExit events')

And add this procedure (and his declaration)


 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;