Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизВыравнивание по правому краю в 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c