Выравнивание текста Edit1

[MrQuality]

Здравствуйте всем. Хочется сделать чтобы в Edit1 выравнивание по умолчанию было по правому краю, а как только фокус ввода перемещался на данный Edit1 выравнивание текста было по левому краю. Свойств для это задачи стантартных у компонента нет, а с какой другой строны подступится не знаю.

[Хыиуду]

Поискать в инете компоненту, у которой есть для этого свойство. И прописать изменение этого свойства ему на OnEnter и OnExit

[BHy4ok]

Компонент "Edit" не поддерживает выравнивание текста.
Используй компонент "RichEdit".
И код соотвественно на действия "OnMouseEnter" и "OnMouseLeave".
[syntax='Delphi']
procedure TForm1.RichEdit1MouseEnter(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;

procedure TForm1.RichEdit1MouseLeave(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;
[/syntax]

[Игорь Акопян]

MrQuality, а это прям так необходимо?

[MrQuality]

MrQuality, а это прям так необходимо?

Дык вот хочется реализовать:-) Мы же не ищем легких путей.