Выравнивание по правому краю в TEdit

← →
ViRUS_1 (2002-09-28 21:31) [0]

Как сделать?

← →
Юрий Зотов © (2002-09-28 21:45) [1]

Примерно так:

SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE)
or ES_RIGHT or ES_MULTILINE and not ES_WANTRETURN);

Подробности в справке API по CreateWindow.

← →
ViRUS_1 (2002-09-29 09:56) [2]

2 Зотов
Пишу
eee:=TEdit.Create(fmMain);
eee.Width:=50;
eee.Text:="fddf";
eee.Name:="edD";
fmMain.InsertControl(eee);
SetWindowLong(eee.Handle, GWL_STYLE,
GetWindowLong(eee.Handle, GWL_STYLE)
and ES_RIGHT or ES_MULTILINE and not ES_WANTRETURN);
А выравнивание все равно не происходит. Может это WinXP или Delphi 6 глючат? Или чего забыл?

← →
MBo © (2002-09-29 17:19) [3]

Придется сделать наследника от TEdit и сделаать указанные действия в перекрытом CreateParams

Я когда делал калькулятор, делал Edit через WinAPI, там когда создешь его через CreateWindow(), есть два параметра очень симпатишных:
ES_RIGHT Right-aligns text in a multiline edit control.
ES_NUMBER Allows only digits to be entered into the edit control.

Можно взять TMemo, WantReturns=False, WordWrap=False, Alignment=taRightJustify, Height=21

Выравнивание по правому краю в TEdit Найти похожие ветки