Скачать: CL | DM;

Как выравнять текст в 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?

---

← →
Song ©   (2002-09-05 16:27) [8]

Стиль.

---

← →
KIR ©   (2002-09-06 12:32) [9]

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

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

---

← →
Guerrillero Che ©   (2002-09-06 12:43) [10]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c