Ориентация текста в Edit

[MyLastHit]

Если не затруднит, подскажите пожалуйста, можно в Эдитовых компонентах настроить как то ориентацию текста? Чтобы печать начиналась с середины и по мере набора текста расширялась во все стороны.

Где то год назад я помнил как это делается...тоько помоему в мемо...а Щас смотрю на Инспектор и не вижу этой атрибуты ни в Мемо, ни в Эдите...

[mihali4]

  TEditR = class(TEdit)
  public
  procedure CreateParams(var Params: TCreateParams); Override;
    { Public declarations }
  end;

procedure TEditR.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_CENTER;
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;

[MyLastHit]

А если не програмно создавать Эдит, а повесить на готовый, это как? Пытаюсь, у меня не получается..

[Stilet]

Где же твоя смекалка то? Такое переопределение годится для любых контролов, а не только для динамически созданных.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEdit = class(StdCtrls.TEdit)
  public
  procedure CreateParams(var Params: TCreateParams); Override;
    { Public declarations }
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TEdit }

procedure TEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
Params.Style := Params.Style or ES_CENTER;

end;

end.

[GunSmoker]

Свойство Alignment в taCenter поставьте.

[Stilet]

GunSmoker

Ух ты какой... Это еще от версии Делфи зависит. Не знаю как в 200х а в Д6 у Эдита нет такого свойства.

[palevg]

Раз уж пошла такая пьянка - и в Д7 тоже нету