Выравнивание текста, моргающий курсор

[alikon1]

Необходимо выравнять текст в поле Edit по правой стороне. Не получилось этого сделать, но нашел в интернете, что вместо Edit надо Memo использовать. А возможно убрать моргающий курсор (|), чтоб было как в калькуляторе Windows?

[Rapid]

Вместо Мемо можно использовать StaticText, свойства задать такие:
Авторазмер-нет
Выравнивание текста-по правой стороне
Можно задать к нить стиль рамок, цвет и по виду он получиться как Едит
В событии OnKeyPress Формы ставь следующее
StaticText1.Caption:=StaticText1.Ca ption+Key;
(Только тут одна проблема, при нажатии клавиши BackSpase пишутся непонятные символы) Но наверно проблему можно решить.

[СТРАННИК]

В 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;

[_Dmitry]

Класс TEdit является потомком TCustomEdit в котором есть процедура задания параметров CreateParams, но ее зачем-то поместили в раздел protected. Следовательно, чтобы не править модуль StdCtrls поступаем следующим образом:
создаем потомка от TEdit

TRightEdit = class(TEdit)
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

добавляем Edit1: TRightEdit; в раздел public класса формы
задаем выравнивание по правому краю

procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or ES_RIGHT;
end;

настраиваем параметры и показываем компонент на форме

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1:=TRightEdit.Create(self);
  Edit1.Top:=100;
  Edit1.Left:=100;
  Edit1.Width:=121;
  Edit1.Height:=21;
  Edit1.ReadOnly:=true;
  Edit1.Parent:=self;
end;

В разделе uses модуля не забываем про StdCtrls

Убрать курсор можно убрав фокус ввода с Edit

[_Dmitry]

Лучше убрать каретку так:

procedure TForm1.FormPaint(Sender: TObject);
begin
  HideCaret(Edit1.Handle);
end;

[alikon1]

Спасибо. Все как надо теперь работает.

[СТРАННИК]

Сообщение от _Dmitry

Класс TEdit является потомком TCustomEdit в котором есть процедура задания параметров CreateParams, но ее зачем-то поместили в раздел protected. Следовательно, чтобы не править модуль StdCtrls поступаем следующим образом:
создаем потомка от TEdit

TRightEdit = class(TEdit)
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

добавляем Edit1: TRightEdit; в раздел public класса формы
задаем выравнивание по правому краю

procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or ES_RIGHT;
end;

настраиваем параметры и показываем компонент на форме

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1:=TRightEdit.Create(self);
  Edit1.Top:=100;
  Edit1.Left:=100;
  Edit1.Width:=121;
  Edit1.Height:=21;
  Edit1.ReadOnly:=true;
  Edit1.Parent:=self;
end;

В разделе uses модуля не забываем про StdCtrls

Убрать курсор можно убрав фокус ввода с Edit

Блин... Я по моему то же самое написал