Developing.ru

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

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

Компонент "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, а это прям так необходимо?

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