Zarovnání doprava u komponenty Edit – Delphi – Fórum – Programujte.com

Dobrý den,
prosím o radu, nevíte, jak naprogramovat editační pole u editu tak, aby zadávaný text byl zarovnáván doprava? Např. u komponenty Label je vlastnost Alignment, u komponenty Edit jsem nic takového nenašel. Děkuji a prosím omluvte mou neznalost. Děkuji

Ak by si kódil v CLX, tak myslím, že to už Borlanďáci dorobili. Ináč si musíš napísať vlastný komponent odvodený od TEditu, ktorý by sa mohol podobať na niečo také (aby som nevytváral komponent, tak som "hackol" pôvodný TEdit s novou vlastnosťou - nefuguje to však v design-time takto, takže si to prepíš na kompont):

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



const

  // ---------------------------------------------------------------------------

  DefaultStringAligment = taLeftJustify;



type

  // ---------------------------------------------------------------------------

  TEdit = class(StdCtrls.TEdit)

  private

    FAlignment: TAlignment;



    function IsAlignmentStored: Boolean;

    procedure SetAlignment(Value: TAlignment);

  protected

    procedure CreateParams(var Params: TCreateParams); override;

  public

    constructor Create(AOwner: TComponent); override;

  published

    property Alignment: TAlignment read FAlignment write SetAlignment stored IsAlignmentStored;

  end; // TEdit



  // ---------------------------------------------------------------------------

  TForm1 = class(TForm)

    Edit1: TEdit;

  public

    constructor Create(AOwner: TComponent); override;

  end; // TForm1



var

  Form1: TForm1;



implementation



{$R *.dfm}



// *****************************************************************************

function TEdit.IsAlignmentStored: Boolean;

begin

  Result := (FAlignment <> DefaultStringAligment);

end;



// *****************************************************************************

procedure TEdit.SetAlignment(Value: TAlignment);

begin

  if FAlignment <> Value then

  begin

    FAlignment := Value;

    RecreateWnd;

  end; // if

end;



// *****************************************************************************

procedure TEdit.CreateParams(var Params: TCreateParams);

const

  Alignments: array[TAlignment] of Longword = (ES_LEFT, ES_RIGHT, ES_CENTER);

begin

  inherited;

  Params.Style := Params.Style or Alignments[FAlignment];

end;



// *****************************************************************************

constructor TEdit.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  FAlignment := DefaultStringAligment;

end;



// *****************************************************************************

// *****************************************************************************

// *****************************************************************************

constructor TForm1.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  Edit1.Alignment := taRightJustify;

end;



end.

To LiborBes : Dekuji, funguje to.