Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

KIR © (2002-09-03 13:16:00)
сабж

Guerrillero Che (2002-09-06 12:43:00) [1]
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.

KIR (2002-09-06 12:32:00) [2]
Не совсем понимаю... Edit.Style??? такого вроде нет.
Попытался найти в Windows SDK слово "ES_RIGHT" - ни фига...

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

Song (2002-09-05 16:27:00) [3]
Стиль.

KIR (2002-09-05 12:14:00) [4]
А что такое ES_RIGHT?

Ученик (2002-09-03 14:37:00) [5]
:-)

Song (2002-09-03 14:36:00) [6]
Есть ещё ES_RIGHT, но по сложности - также.

Ученик (2002-09-03 14:36:00) [7]
Варианты:
поменять TEdit на TMemo в DFM-файле (все привязки сохраняются, пробовать на пустом, есть особенности);
менять TCustomEdit.CreateParams, добавить ES_RIGHT, если для всех

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

KIR (2002-09-03 14:29:00) [9]
В проекте более 50 Edit"ов и соответственно к каждому привязаны определенные процедуры. Все их менять на Memo - тупик...

Ученик (2002-09-03 13:31:00) [10]
А TMemo не подойдет, WantReturns=False, WordWrap=False, Alignment=taRightJustify ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »