Как выравнять текст в Edit e по правому краю?

← →
KIR © (2002-09-03 13:16) [0]

сабж

← →
Ученик © (2002-09-03 13:31) [1]

А TMemo не подойдет, WantReturns=False, WordWrap=False, Alignment=taRightJustify ?

← →
KIR © (2002-09-03 14:29) [2]

В проекте более 50 Edit"ов и соответственно к каждому привязаны определенные процедуры. Все их менять на Memo - тупик...

← →
Alx2 © (2002-09-03 14:34) [3]

>KIR © (03.09.02 14:29)
Если все разом поменять на Memo - жмешь Alt+F12 на нужной форме и заменяешь (поиск+замена) "TEdit" на "TMemo".

← →
Song © (2002-09-03 14:36) [4]

Есть ещё ES_RIGHT, но по сложности - также.

← →
Ученик © (2002-09-03 14:36) [5]

Варианты:
поменять TEdit на TMemo в DFM-файле (все привязки сохраняются, пробовать на пустом, есть особенности);
менять TCustomEdit.CreateParams, добавить ES_RIGHT, если для всех

← →
Ученик © (2002-09-03 14:37) [6]

:-)

← →
KIR © (2002-09-05 12:14) [7]

А что такое ES_RIGHT?

Стиль.

Не совсем понимаю... Edit.Style??? такого вроде нет.
Попытался найти в Windows SDK слово "ES_RIGHT" - ни фига...

Можно про ES_RIGHT поподробнее...

2 Kir
придется написать потомка от tedit
и перекрыть метод CreateParams, где надо изменить стиль

что-то типа этого

unit Unit2;

interface
uses STDCTRLS,Controls,Messages,Windows ;
type TRigthAligtEdit=class(TCustomedit)
protected
procedure CreateParams(var Params: TCreateParams);override;
end;

implementation

{ TRigthAligtEdit }

procedure TRigthAligtEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style-es_left+es_right
end;

end.

Как выравнять текст в Edit e по правому краю? Найти похожие ветки