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

Выравнивание по правому краю в 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

---

← →
PaRL ©   (2002-09-29 18:41) [4]

Я когда делал калькулятор, делал 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.

---

← →
Ученик ©   (2002-09-29 20:48) [5]

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

---

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

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



Память: 0.45 MB
Время: 0.01 c